1,594
社区成员
发帖
与我相关
我的任务
分享在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编码
