＋设为首页 ＋添加到收藏夹
看了很久，关于怎么将汉字转换成unicode，也试了几次
但是不明白怎么用 网上说delphi的函数是StringToWideChar 试了 没有达到我想要的效果。。
还有就是windows的API函数MultiByteToWideChar，这个我就更不会用了 API我基本上看不懂参数
请大家教教我 好吗？
请给出delphi源代码。我实在不会
谢谢
还有就是我学delphi这么久了 还不能拿到delphi和windows API函数来用
谁能告诉怎么把这个学会，另开帖高分送出，在这里告诉我也可以
我会给大家开新帖给分的。 谢谢
var
s:string;
t:widestring;
i:integer;
h,l:byte;
begin
s:=12阿f;
t:=widestring(s);
for i:=1 to length(t) do
begin
h:=hi(ord(t[i]));
l:=lo(ord(t[i]));
memo1.lines.add(inttohex(h,2)+inttohex(l,2));
end;
end;
function Encode2(var s:WideString):String;
var
i,len:Integer;
cur:Integer;
t:String;
begin
Result:=‘’;
len:=Length(s);
i:=1;
while i<=len do
begin
cur:=ord(s[i]);
//BCD转换
FmtStr(t,‘％4.4X’,[cur]);
Result:=Result＋t;
inc(i);
end;
end;
注意是var s:WideString
