delphi 的Utf8ToUnicode方法

Question

delphi 的Utf8ToUnicode方法怎么用呢， 
能不能把"4e2d56fd"这个字符串转为中文？

Answer 1

Delphi里面有UTF8Decode这可完成这个工作。

Answer 2

uses   EncdDecd;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.Text   :=   DecodeString('4e2d56fd');
end;

Answer 3

http://bbs.2ccc.com/topic.asp?topicid=339687

Answer 4

procedure TForm1.Button3Click(Sender: TObject);
var
      Dest:Pchar;
      Unic:PWidechar;
      str:string;
      NewDest:PwideChar;
  begin
      GetMem(Unic,100);
      try
          GetMem(Dest,100);
          UnicodeToUtf8(Dest,StringToWideChar('测试字符串',   Unic,   100),100);
          try
              str:=StrPas(Dest);
              ShowMessage('utf8的编码为:'+Str);
              GetMem(NewDest,100);
              try
                  Utf8toUnicode(NewDest,Dest,100);
                  ShowMessage('原始的字符为:'+WideCharToString(NewDest));
              finally
                  FreeMem(NewDest);   
              end;   
          finally
              FreeMem(Dest);   
          end;   
      finally
          FreeMem(Unic);   
      end;   
  end;

Answer 5

procedure TForm1.btn1Click(Sender: TObject);
var
  unicodeStr: WideString;
begin
  unicodeStr := UTF8Decode(#$E4#$B8#$AD#$E5#$9B#$BD); // “中国”的utf8编码
  self.Caption := unicodeStr;
end;