925
社区成员
3.3w+
社区内容
- 主页
在DELPHI中怎样将汉字转换为UNICODE码，有直接可用的函数么！
在DELPHI中怎样将汉字转换为UNICODE码，有直接可用的函数么！
...全文
vinsonshen 2005年04月08日
up
tigerjacky 2005年04月08日
MARK
crystalmoon 2005年04月07日
AnsiToUtf8
flyinwuhan 2005年03月22日
var
ws : widestring;
ln : integer;
pbuf : pchar;
ptxt : pchar;
begin
ws := '计算';
ln := length(ws) * 2;
ptxt := allocmem(ln*2 + 1);
pbuf := allocmem(ln + 1);
move( ws, pbuf^, ln );
bintohex( pbuf, ptxt, ln );
showmessage( ptxt );
ws : widestring;
ln : integer;
pbuf : pchar;
ptxt : pchar;
begin
ws := '计算';
ln := length(ws) * 2;
ptxt := allocmem(ln*2 + 1);
pbuf := allocmem(ln + 1);
move( ws, pbuf^, ln );
bintohex( pbuf, ptxt, ln );
showmessage( ptxt );
bfox 2005年03月22日
widestring 好象是UNICODE编码