在VB中取字符的asc码的函数Asc('汉'),在delphi中应该怎样写?(100分)

L

lyloyal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #1

在VB中取字符的asc码的函数Asc('汉'),在delphi中应该怎样写?
请多多指教!

 

郭

郭玉梁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #2

edit1.text := '汉'
edit2.text := inttostr(ord(edit1.text[1]));
edit2.text := inttostr(ord(edit1.text[2]));
可以分别取到区位码

 

B

boyface

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #3

DELPHI 6中是以#XXXXX来表示汉字的。

 

W

westboy2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #4

汉字由两个字节组成，可以用ord函数分别取，象郭玉梁兄说的一样。

 

B

bbs_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #5

agree 郭玉梁兄

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-06

• #6

应该是这样才对：
var
C: WideString;
begin
C := '汉字';
ShowMessage(C[1] + ' ' + IntToStr(Ord(WideChar(C[1]))));
end;