将十六进制编码转换成汉字

2016-09-12 19:13:27来源:CSDN作者:l09120204人点击

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

 /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');

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台