请教怎么取汉字的ASCII码???

[bluesage]

请教怎么取汉字的ASCII码???或者别的什么能把汉字转换为数字

[netwolfds]

s:='汉',ord(s[1]),ord(s[2])就是汉的ascii码

[wuding]

直接读不就行了嘛

[sysu]

s := '中国';
ShowMessage(IntToStr(Ord(s[1])));

[Billy_Chen28]

program ascii;
{$apptype console}
var i,n:integer; s:string;
begin
writeln('ascii码显示程序，输入字符将显示其ascii码，按回车结束程序');
repeat
readln(s);
n:=length(s);
if n>0 then for i:=1 to n do write(ord(s[i]),' ');
writeln;
until n=0
end.
输入：中国
得出：214 208 185 250