关于字符串和ASCII码转换的问题

Question

在delphi中如何实现VB功能
 Asc("人") ,返回-14133 Chr(-14133),返回"人"在DELPHI中如何实现这个功能

Answer 1

好像Delphi里没有这么简单，可能得支持unicode才行

Answer 2

好象不支持但可以分开得到中文件的高字节和低写节然后加到一个pchar字串中这样显现出来的会是原中文件字哦

Answer 3

mengyun5005(梦云) 请你给出代码

Answer 4

King_0119(智)  什么时候上传呀 急!  谢谢

Answer 5

//--------------Str:='人';
i:=(ord(Str[1]) shl 8) + ord(Str[2]);  //i:=36972//--------------i:=36972;
Str:=char(i shr 8) + char(i and $FF);    //Str:=人