汉字与 Unicode 转换

最新推荐文章于 2024-09-14 23:01:09 发布

肥仔胧

最新推荐文章于 2024-09-14 23:01:09 发布

阅读量436

点赞数

分类专栏： delphi 文章标签： integer string function 测试

delphi 专栏收录该内容

24 篇文章 0 订阅

订阅专栏

{感谢 robin（xuebin418@163.com）提供}




//转换


function

 Str_Gb2UniCode(text: string

): String; 

var

 

  i,len: Integer;

  cur: Integer;

  t: String;

  ws: WideString;

begin



  Result := ''
;

  ws := text;

  len := Length(ws);

  i := 1
;

  while

 i <= len do



  begin



    cur := Ord(ws[i]);

    FmtStr(t,'%4.4X'
,[cur]);

    Result := Result + t;

    Inc(i);

  end

;

end

;



//恢复


function

 Unicode_str(text: string

):string

;

var



  i,len: Integer;

  ws: WideString;

begin



  ws := ''
;

  i := 1
;

  len := Length(text);

  while

 i < len do



  begin



    ws := ws + Widechar(StrToInt('$'
 + Copy(text,i,4
)));

    i := i+4
;

  end

;

  Result := ws;

end

;



//测试


procedure

 TForm1.Button1Click(Sender: TObject);

begin



  ShowMessage(Str_Gb2UniCode('万一'
));  //4E074E00


  ShowMessage(Unicode_str('4E074E00'
));  //万一


end

;