delphi中用什么函数来取得汉字的ASCII码，以便用来对汉字进行加密(20分)

sweidong · 2004-02-04

delphi中用什么函数来取得汉字的ASCII码，以便用来对汉字进行加密，ASC(),和MID()为何不能使用，请指教！

lichengbin · 2004-02-04

Ord().
或者强制转换Byte()

andy263 · 2004-02-04

IntToStr(Ord(s[1]))
IntToStr(Ord(s[2]))

savetime · 2004-02-04

这样行不行？

const
HanZi = '汉字';
var
P: PChar;
iAsc: Byte;
begin
P := HanZi;
iAsc := Ord(P[0]);
end;

黑星星 · 2004-02-04

ORD函数

savetime · 2004-02-04

哈，突然这么多人回答

sweidong · 2004-02-08

谢谢各位！