| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 发布代码 斑竹:liumazi,ruralboy | |||||
| 作者： |
|
2020/11/21 18:25:39 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 哈希表使用:使用资源文件方式通过THashedStringList取汉字拼音进行转换。 THashedStringList引用IniFiles单元 Hash := THashedStringList.Create; Hash.Values['汉'] ; //hàn
- |
|||||
| 作者： |
|
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楼： | 谢谢分享 ---------------------------------------------- - |
|||||
| 作者： |
|
2020/11/23 22:45:24 | ||||
| 4楼： | 谢谢分享 ---------------------------------------------- - |
|||||
| 作者： |
|
2020/11/24 9:36:14 | ||||
| 5楼： | 10.4.1编译报"brcc32 exited with code 1"错误 ---------------------------------------------- 他们总是取笑失败者，以酷似智者；他们也总是为成功者喝采，以取得赏金。 |
|||||
| 作者： |
|
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;
- |
|||||
| 作者： |
|
2020/11/24 11:43:50 | ||||
| 8楼： | 重新做项目文件，测试成功，谢谢分享 ---------------------------------------------- 他们总是取笑失败者，以酷似智者；他们也总是为成功者喝采，以取得赏金。 |
|||||
| 作者： |
|
2020/11/24 17:33:29 | ||||
| 9楼： | 多谢分享！ 楼主能否把PY.TXT文件也一同上传？以便在其它版本的Delphi下编译？ ---------------------------------------------- - |
|||||
| 作者： |
|
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”按钮后，这下编译通过了。 ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
