如何把Unicode字符转换成中文(100分)

如何把Unicode字符转换成中文

Function Unicode2Chs(AiUniCode : Integer) : String;<br>Var<br>&nbsp;ch, cl : String[3]; <br>&nbsp;s : String; <br>Begin <br>&nbsp;s := IntToHex(AiUniCode, 2);<br>&nbsp;cl := '$' + Copy(s, 1, 2);<br>&nbsp;ch := '$' + Copy(s, 3, 2);<br>&nbsp;if ch='$' then s := Chr(StrToInt(cl)) + #0<br>&nbsp;else s := Chr(StrToInt(ch)) + Chr(StrToInt(cl)) + #0;<br>&nbsp;Result := WideCharToString(pWideChar(s));<br>end;

to xianguo<br>能举个例子好吗?

str := Unicode2Chs(25105);

谢谢!