delphi Unicode转中文编码

function UnicodeToChinese(inputstr: string): string;

var

index: Integer;

temp, top, last: string;

begin

index := 1;

while index >= 0 do

begin

index := Pos('\u', inputstr) - 1;

if index < 0 then

begin

last := inputstr;

Result := Result + last;

Exit;

end;

top := Copy(inputstr, 1, index); // 取出编码字符前的非 unic 编码的字符，如数字 delphitop.com

temp := Copy(inputstr, index + 1, 6); // 取出编码，包括 \u,如\u4e3f

Delete(temp, 1, 2);

Delete(inputstr, 1, index + 6);

Result := Result + top + WideChar(StrToInt('$' + temp));

end;

推荐分享