实用的繁体字与简体字互转的序列表

最新推荐文章于 2024-08-08 17:23:11 发布

par

最新推荐文章于 2024-08-08 17:23:11 发布

阅读量302

点赞数

分类专栏： delphi

本文链接：https://blog.csdn.net/par/article/details/118582552

版权

delphi 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

多年前写应用软件时需要有简繁体字互转的需求，例如需要“後”转为“后”。虽然现在可以用切换字体显示方式实现，但是在一些硬件资源较少的情况下，能有简繁体对应表也是不错的选择。

繁体=简体字表：http://fxsup.dysan.cn/zb_users/upload/tmp/ft2jt.txt

function GetJtText(str_temp:String): String;                     //传入一句繁体字返回简体字
var i,j:integer;  str_temp2,str_temp3:String;
Ft2JtTextList:TStringList;
begin
    Ft2JtTextList:=TStringList.Create;
    Ft2JtTextList.LoadFromFile(ExtractFilePath(Paramstr(0))+'ft2jt.txt');    //读入繁简体字对应表
    for i := 1 to length(str_temp) do
      begin
         str_temp2 := str_temp[i];
         j := Ft2JtTextList.IndexOfName(str_temp2);
         if (j >=0) then
            str_temp2 := Ft2JtTextList.ValueFromIndex[j];
         str_temp3 := str_temp3 + str_temp2;
      end;
      Result := str_temp3;
    Ft2JtTextList.free;
end;

还有分开单独存放对应的

繁体字表：http://fxsup.dysan.cn/zb_users/upload/tmp/ft.txt

简体字表：http://fxsup.dysan.cn/zb_users/upload/tmp/jt.txt