汉字字符解码

一、如这种十六进制表示的汉子需要转换成汉字

 \u7535\u4fe1

解码函数：

function WideDecode( srctext:string):string;

var
  i,p:integer;
  gbc,html,
  ttxt:string;
begin
  html :=srctext;
  p:=pos('\u',html);
  while (p>0) do
  begin
    i:=p+2;
    ttxt:=Copy(html,i,4);
    delete(html,p,6);
    gbc:=widechar(strtoint('$'+ttxt));
    insert(gbc,html,p);
    p:=pos('\u',html);
  end;
  result:=html;

end;

调用

WideDecode(' \u7535\u4fe1');

二、

function HtmlDecode(S: string): string;
var
  List: TStringList;
  i, GBK: integer;
  wStr: WideString;
begin
  List := TStringList.Create;
  S := StringReplace(S, '&#', '', [rfReplaceAll]); //空头
  S := StringReplace(S, ';', #13#10, [rfReplaceAll]); //尾回车
  List.Text := S;
  for i := 0 to List.Count - 1 do
  begin
    GBK := StrToInt(List[i]);
    wStr := wStr + WideChar(GBK); //汉字是宽字符
  end;
  Result := wStr
end;

调用 HtmlDecode(‘刘&#40857’);//刘文