如何用程序将汉字须转换成两个字节的Unicode码？

[haibozhang]

如何用程序将汉字须转换成两个字节的Unicode码？ 或者有什么软件，哪里下载？

[netwan]

pascal的代码:
function EncodeUniCode(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+IntToHex(Cur,4)+' ';
inc(i);
end;
end;

function DecodeUniCode(s:String):WideString;
var
p:PWord;
i,len:Integer;
cur:Integer;
TempChar:WideChar;
t:String;
begin
New(p);

Result:='';
len:=Length(s) div 4;
i:=1;

for i:=0 to Len-1 do
begin
t:=Copy(s,4*i+1,4);
p^:=HexToInt(t);

Move(p^,TempChar,2);
Result:=Result+TempChar+' ';
end;

Dispose(p);
end;

[崔作非]

没那么麻繁，用宽字节字符串就行了。如:
AnsiString a="汉字";
WideString b;
b=a;//b就是楼主想要的Unicode码

[僵哥]

使用API函数,特殊情况下需要注意一下汉字编码。
MutilByteToWideChar

[僵哥]

至于沙发上面的那段代码就不大懂是在处理什么了。
如果不考虑汉字的编码（如简体为GBK，繁体为BIG）的话，可以直接使用二楼的方法。