导航:
论坛 -> 发布代码
斑竹:liumazi,ruralboy
作者:
2020/11/21 18:25:39
标题:
xe汉字转拼音哈希表最简单实现使用
浏览:2953
加入我的收藏
楼主:
哈希表使用:使用资源文件方式通过THashedStringList取汉字拼音进行转换。 THashedStringList引用IniFiles单元 Hash := THashedStringList.Create; Hash.Values['汉'] ; //hàn
----------------------------------------------
-
作者:
kaida (kaida)
★☆☆☆☆
-
盒子活跃会员
2020/11/21 22:04:43
1楼:
谢谢分享!
----------------------------------------------
http://down.desei.com.cn/down/1041485/MyWeb/VCLs.html
作者:
2020/11/22 11:45:29
2楼:
谢谢分享啊
----------------------------------------------
http://www.cnblogs.com/tulater/
作者:
2020/11/22 20:27:45
3楼:
谢谢分享
----------------------------------------------
-
作者:
janker (janker)
★☆☆☆☆
-
盒子活跃会员
2020/11/23 22:45:24
4楼:
谢谢分享
----------------------------------------------
-
作者:
2020/11/24 9:36:14
5楼:
10.4.1编译报"brcc32 exited with code 1"错误
----------------------------------------------
他们总是取笑失败者,以酷似智者;他们也总是为成功者喝采,以取得赏金。
作者:
kaida (kaida)
★☆☆☆☆
-
盒子活跃会员
2020/11/24 11:10:11
6楼:
@mprjcf (mprjcf):汉字转拼音(10.4.1通过).rar
----------------------------------------------
http://down.desei.com.cn/down/1041485/MyWeb/VCLs.html
作者:
2020/11/24 11:28:14
7楼:
10.4.1编译报"brcc32 exited with code 1"错误 可以重新建个项目可能是我打包的时候清除文件误删了关键文件。 在fmx上测试速度比vcl快,vcl是200ms左右 , fmx是140左右 function hzpy(txt, wv: string; var list: THashedStringList): string; var i: integer; a: string; begin Result := list.Values[txt[1]]; for i := 2 to Length(txt) do begin a := list.Values[txt[i]]; //这里修改下只查找一次 效率更高 if (Length(a) >= 1) then Result := Result + wv + a // else Result := Result + txt[i]; end; end;
此帖子包含附件: 大小: 106.8K
----------------------------------------------
-
作者:
2020/11/24 11:43:50
8楼:
重新做项目文件,测试成功,谢谢分享
----------------------------------------------
他们总是取笑失败者,以酷似智者;他们也总是为成功者喝采,以取得赏金。
作者:
2020/11/24 17:33:29
9楼:
多谢分享! 楼主能否把PY.TXT文件也一同上传?以便在其它版本的Delphi下编译?
----------------------------------------------
-
作者:
dalas (dalas)
★☆☆☆☆
-
普通会员
2020/11/24 23:07:30
10楼:
@9楼, Delphi7自带一个资源编辑器,试试看能否从res文件里提取txt
----------------------------------------------
-
作者:
2020/11/25 12:38:08
11楼:
@edwinyeah (Edwin) 解决了吗?有好几种方法提取 1.文本型的资源可以打开直接打开编辑复制 2.加载资源到list直接保存成文件,用法和其他list一样 list := THashedStringList.Create; getpylist(list); list.savefile('py.txt');
----------------------------------------------
-
作者:
2022/3/19 14:05:06
12楼:
打开Project>Options>Application>Appearance后再点“OK”按钮后,这下编译通过了。
----------------------------------------------
-