━━━━━━━━━━━━━━━━━━━━━━━━━━

var

Str:String;

begin

Str:='张';

Caption:=IntToHex(PWord(@Str[1])^,4);

end;

━━━━━━━━━━━━━━━━━━━━━━━━━━

这样也行

a:='我';

caption:=IntToStr(ord(a[1]))+IntToStr(ord(a[2]));

━━━━━━━━━━━━━━━━━━━━━━━━━━

Caption:=IntToHex(PWord(@Str[1])^,4);

   得到的是16进制的代码

caption:=IntToStr(ord(a[1]))+IntToStr(ord(a[2]));

得到的是10进制的代码！

不过好像应该是IntToStr(ord(a[2]))+IntToStr(ord(a[1])); 换一下位置！

━━━━━━━━━━━━━━━━━━━━━━━━━━

汉字就是unicode，delphi里面有widestring类型，可以立即使用

var

s: widestring;

i: integer;

begin

s := 'I am 中国人';

for i := 1 to length(s) do

    showmessage(inttostr(ord(s[i])));

end;

标准的写法，韩文，日文都可以这样处理。

━━━━━━━━━━━━━━━━━━━━━━━━━━

要比较汉字， 你只要将这两个字节一一对比， 两个字节都相同，当然是一个汉字了。

一个汉字由两个字节组成，要判断连续的两个字节是否汉字，

关键是看其第一个字节是否满足 >=$a0 条件， 这个条件对GBK汉字都适用

而如果一个汉字是GB2312中定义的最常用的6763个汉字，

则第一个字节和第二个节字都必须满足>=$a0 条件的条件

showmessage(chr($CB)+chr($CE)); //显示 宋 字

宋字的区位码是： 4346

宋字的国标码是： CBCE    (16进制）

另外来几个

showmessage(chr($B5)+chr($CB)); //显示 邓 字

showmessage(chr($D0)+chr($A1)); //显示 小 字

showmessage(chr($C6)+chr($BD)); //显示 平 字

━━━━━━━━━━━━━━━━━━━━━━━━━━

to tosleep:

uses widechar(ord(s[i]))

simple example:

var

c1: widechar;

c2: widechar;

i: integer;

s: widestring;

begin

s := '汉';

c1 := s[1];

i := ord(c1);

c2 := widechar(i);

showmessage(c2);

end;

奇怪上面个别人的发言，windows和delphi都已经有了对unicode的支持，为什么不用呢？

━━━━━━━━━━━━━━━━━━━━━━━━━━

【delphi类型转换 asc与char】

ord(char) = asc

chr(asc) = char

inttohex(int,1) = hex (string)

使用AStr[i]取AStr:String中的第i个字符时需要注意的事项:

这里i表示第i个字符,并不是通常的0表示第1个，i表示第i+1个。