怎样把Unicode码转变成汉字

Question

小弟需要把Unicode码转变成汉字，我该怎么处理啊
请大虾帮忙
谢谢！

Answer 1

Function UnicodeName(Unicode:Pchar):String;
var
  s:string;
  i:integer;
begin
  Result:='';
  Try
  for i:=0 to 12 do
  begin
    if (Ord(Unicode[i*2])=0) and (Ord(Unicode[i*2+1])=0) then
    begin
       Exit;
    end;
    s:=unicode[i*2]+unicode[i*2+1];
    Result:=Result+WideCharToString(PWideChar(s+#0#0#0#0))
  end;
  Except
    Result:='';
  end;end;

Answer 2

为什么要转换呢？用WideString和string互相赋值就解决了

Answer 3

huayuxing(huayuxing)
大虾
   我用的方法试过了，好象不管用啊， for i:=0 to 12 do
12是什么长度啊
能在详细点吗

Answer 4

比如我有Unicode为'4F60597D'怎样把它变回为“你好”啊
请大虾们帮帮小弟！在线等！
谢谢了各位

Answer 5

D7中WideString是可以直接处理中文的
一下