有没有返回汉字内码的函数。VB中有一个是ASC（）。(50分)

新

新人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #1

小弟最近有一个程序，需要知道汉字的内码，请各位指教，DELPHI中有没有这样一个函数。

代码:

 

Y

yaya8163

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #2

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

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #3

不知是否是这个意思：
var
ws: WideString;
begin
ws := '我';
caption := inttostr(ord(ws[1]));
//ord(ws[1])即为所求值
end;