如何把中文转换成Unicode字符

来自：HJ 时间：00-8-7 12:56:02 ID:305159 
呵呵，Delphi转换Accis编码的函数???

CHR()是相反的，唉，很久没用Delphi了，大家别见笑......

这个问题20大元该够了吧？？？
 
 



--------------------------------------------------------------------------------
来自：ArJianzeng 时间：00-8-7 14:37:25 ID:305239 
@@
 
 

--------------------------------------------------------------------------------
来自：康夫 时间：00-8-7 15:29:49 ID:305271 
ORD()
 
 

--------------------------------------------------------------------------------
来自：beta 时间：00-8-7 18:24:36 ID:305401 
ord(); byte() 好象都可以
 
 

--------------------------------------------------------------------------------
来自：HJ 时间：00-8-13 14:12:14 ID:307263 
beta:   
康夫: 
等我试一下，如果行，即刻ADD...
 
 

--------------------------------------------------------------------------------
来自：elan 时间：00-8-13 14:15:34 ID:307266 
好像题目问的是 unicode ，不是ascii
 
 

--------------------------------------------------------------------------------
来自：HJ 时间：00-8-13 14:38:28 ID:307282 
>来自：elan 时间：00-8-13 14:15:34 ID:307266 
>好像题目问的是 unicode ，不是ascii
其实就是“&#” +ascii+"；"

在写多数的WAP网页是用的........
 

 
 

--------------------------------------------------------------------------------
来自：elan 时间：00-8-13 15:37:19 ID:307315 
O , I see ,thanks
 
 

--------------------------------------------------------------------------------
来自：lightscent 时间：00-8-16 13:24:53 ID:310347 
这个函数怎么样
StringToWideChar()
 
 

--------------------------------------------------------------------------------
来自：OopsWare 时间：00-8-17 7:51:34 ID:311039 
来晚了！

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Edit1Change(Sender: TObject);
var s: string;
    i, j, k: integer;
    a: array[1..1000] of char;
begin
  s:='';
  for i:=1 to Length(Edit1.Text) do begin
   j:=Integer(Edit1.Text[i]);
   s:=s+Copy(Format('%X ',[j+$100]) ,2,3);
  end;
  Edit2.Text:=s;

  StringToWideChar(Edit1.Text, @(a[1]), 500);
  s:=''; i:=1;
  while ((a[i]<>#0) or (a[i+1]<>#0)) do begin
   j:=Integer(a[i]); k:=Integer(a[i+1]);
   s:=s+Copy(Format('%X ',[j*$100+k+$10000]) ,2,5);
   i:=i+2;
  end;
  Edit3.Text:=s;

end;

end.

 
 

--------------------------------------------------------------------------------
来自：Atomic 时间：00-8-17 9:56:22 ID:311194 
...