在DELPHI中怎样将汉字转换为UNICODE码,有直接可用的函数么!

zhangaoran 2005-03-22 11:58:08
在DELPHI中怎样将汉字转换为UNICODE码,有直接可用的函数么!
...全文
205 点赞 收藏 5
写回复
5 条回复
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 );
回复 点赞
bfox 2005年03月22日
widestring 好象是UNICODE编码
回复 点赞
发动态
发帖子
网络通信/分布式开发
创建于2007-08-02

925

社区成员

3.3w+

社区内容

Delphi 网络通信/分布式开发
社区公告
暂无公告