怎样使用utf8tounicode,UnicodeToUtf8 这些函数,最好有例子

[sandalwood]

怎样使用utf8tounicode,UnicodeToUtf8 这些函数,最好有例子

[overtime]

procedure TForm1.Button1Click(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;