下面是实现中文ANSI编码到UNICODE代码:
// 中文格式编码,s为Unicode String
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;
看看吧