偶然获得一个DELPHI中简单的把汉字转换成ASCII码的方法
var
ustr: WideString; //
ustrDate()=ustr;
for i := 1 to Length(ustr) do
strResult := strResult + IntTohex(Ord(ustr[i]),4);
事实上就是利用WIDESTRING支持UNICODE。
转载于:https://www.cnblogs.com/TCrow/archive/2007/07/30/4216690.html