| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2013/11/17 20:20:46 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | function TSynCustomHighlighter.IsWordBreakChar(AChar: WideChar): Boolean; begin case AChar of #0..#32, '.', ',', ';', ':', '"', '''', '?, '`', '?, '^', '!', '?', '&', '$', '@', '?, '%', '#', '~', '[', ']', '(', ')', '{', '}', '<', '>', '-', '=', '+', '*', '/', '\', '|': Result := True; else Result := False; end; end; 正确的应该为 : function TSynCustomHighlighter.IsWordBreakChar(AChar: WideChar): Boolean; begin case AChar of #0..#32, '.', ',', ';', ':', '"', '''', '´', '`', '°', '^', '!', '?', '&', '$', '@', '§', '%', '#', '~', '[', ']', '(', ')', '{', '}', '<', '>', '-', '=', '+', '*', '/', '\', '|': Result := True; else Result := False; end; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2013/11/17 20:22:34 | ||||
| 1楼： | 区域和语言中应如何设置? XE5 IDE需要如何设置? ---------------------------------------------- - |
|||||
| 作者： |
|
2013/11/17 23:01:45 | ||||
| 2楼： | 是文本编辑器吗？ 你不知道鼠标右键 有 文本格式可以选吗、 实在不行你可以 #$nnnn 这样的格式表示。 ---------------------------------------------- (C)(P)Flying Wang |
|||||
| 作者： |
|
2013/11/18 0:13:49 | ||||
| 3楼： | 我标题里已经说了,是在XE5 IDE中 ---------------------------------------------- - |
|||||
| 作者： |
|
2013/11/18 8:05:35 | ||||
| 4楼： | IDE 右键， File Format -> 选择你想要的格式 ---------------------------------------------- - |
|||||
| 作者： |
|
2013/11/18 8:12:09 | ||||
| 5楼： | Delphi IDE无法在中文区域编码下认出这些字符，右键UTF8也不行。你可以用Editplus或者UltraEdit另存UTF8，记得要带BOM，然后就可以编译通过了。 另外，问你要QQ为什么不告诉我？ ---------------------------------------------- 只有偏执狂才能生存！ |
|||||
| 作者： |
|
2013/11/18 8:31:46 | ||||
| 6楼： | 实际上,手动编译LMD的包时也会出现这问题.一般都是手动调整文本编码为Unicode解决的. ---------------------------------------------- - |
|||||
| 作者： |
|
2013/11/18 9:17:23 | ||||
| 7楼： | 难道 IDE 中没有 文本编辑器？您代码都放哪里去了？ ---------------------------------------------- (C)(P)Flying Wang |
|||||
| 作者： |
|
2013/11/18 9:19:22 | ||||
| 8楼： | 上班了，没 XE5 了用 XE2，成功。 ---------------------------------------------- (C)(P)Flying Wang |
|||||
| 作者： |
|
2013/11/18 12:26:43 | ||||
| 9楼： | 在XE5 IDE代码编辑器中,乱码变成"'?"了,实际应该是'´', '°'和'§' 试过修改为#$00**这样是可以的 nevergrief (孤独骑士)说的另存,还没试过 在不对原有代码文件作任何变动的情况下,英文版Win7应如何设置区域和语言里面的选项,能让它正常显示呢? QQ : 3981818 ---------------------------------------------- - |
|||||
| 作者： |
|
2013/11/18 14:30:46 | ||||
| 10楼： | 试出来了,"区域和语言" --> "管理" --> "非Unicode程序的语言" 设置为"英语(美国)"就可以了 谢谢诸位的解答 ---------------------------------------------- - |
|||||
| 作者： |
|
2013/11/18 15:03:01 | ||||
| 11楼： | 那你就等着别的东西乱码吧。 叫你改格式都不听。 ---------------------------------------------- (C)(P)Flying Wang |
|||||
| 作者： |
|
2013/11/18 18:13:38 | ||||
| 12楼： | 嗯,肯定会有乱码的 ---------------------------------------------- - |
|||||
| 作者： |
|
2013/11/18 19:36:18 | ||||
| 13楼： | to nevergrief (孤独骑士) : 另存为UTF-8 + BOM不行啊,都变成一样的了 function TSynCustomHighlighter.IsWordBreakChar(AChar: WideChar): Boolean; begin case AChar of #0..#32, '.', ',', ';', ':', '"', '''', '?', '`', '?', '^', '!', '?', '&', '$', '@', '?', '%', '#', '~', '[', ']', '(', ')', '{', '}', '<', '>', '-', '=', '+', '*', '/', '\', '|': Result := True; else Result := False; end; end; [dcc32 Error] SynEditHighlighter.pas(1142): E2030 Duplicate case label [dcc32 Error] SynEditHighlighter.pas(1143): E2030 Duplicate case label [dcc32 Fatal Error] SynEditMiscProcs.pas(2009): F2063 Could not compile used unit 'SynEditHighlighter.pas' 只能修改为 #$00** 才行么
- |
|||||
| 作者： |
|
2013/11/18 21:51:30 | ||||
| 14楼： | 等几分钟，我我把文件发你邮箱里。你这些问题，我早800年解决了。 ---------------------------------------------- 只有偏执狂才能生存！ |
|||||
| 作者： |
|
2013/11/18 22:19:31 | ||||
| 15楼： | 发到你QQ邮箱里了 ---------------------------------------------- 只有偏执狂才能生存！ |
|||||
| 作者： |
|
2013/11/19 12:30:29 | ||||
| 16楼： | 谢谢,qq邮箱暂未收到 其实以前是改 #$00xx 进行编译,就想知道有啥更简便的方式不 "区域和语言" --> "管理" --> "非Unicode程序的语言" --> "英语(美国)" ,这个也行,但装的软件多的话,肯定一堆乱码的 nevergrief (孤独骑士)的另存办法(UTF-8 + BOM)算是挺简便了,但我用EditPlus另存后,就变13楼那样了 ---------------------------------------------- - |
|||||
| 作者： |
|
2013/11/19 15:27:52 | ||||
| 17楼： | 我也遇到同样的问题， nevergrief (孤独骑士)， 发一份到我的邮箱 webtestuser@163.com 谢谢！ ---------------------------------------------- - |
|||||
| 作者： |
|
2013/11/19 16:54:39 | ||||
| 18楼： | Editplus另存utf8不带BOM的，不好。另外，改语言重编译不好，安装的时候没问题，但每次rebuild的时候，还是有问题的。所以你用ultraedit试试。我改完以后，没有13楼的问题 to letianxia 已发。 ---------------------------------------------- 只有偏执狂才能生存！ |
|||||
| 作者： |
|
2013/11/19 19:32:05 | ||||
| 19楼： | EditPlus选项里是有+BOM的 ---------------------------------------------- - |
|||||
| 作者： |
|
2013/12/9 21:03:18 | ||||
| 20楼： | 单元 IDPacker 错误函数 (* Die FUNKTION CapStr wandelt einen String in Groábuchstaben um, wobei die deutschen Umlaute bercksichtigt werden. Beispiel: The FUNCTION CapStr changes a string to uppercase, German "Umlauts" are being taken into consideration. Example: Name := CapStr('Dsseldorf'); (ergibt 'DšSSELDORF') *) Function CapStr(St: String): String; Var i : Byte; Begin For i := 1 To Length(St) Do { changed rar, 0808-2001 } Begin Case St[i] Of '„' : St[i] := 'Ž'; '”' : St[i] := '™'; '' : St[i] := 'š'; Else St[i] := Upcase(St[i]); End; End; CapStr := St; End; 上面已经正常了 翻译得出是德语 系统上的pas 系统xp sp2 深度精简版 "区域和语言" --> "高级" --> 德国（德语） 重起系统 IDE 右键， File Format -> utf8 语言改回中文重起 重新打开 无错误。 附上原始文件一份。
免费的FTP  https://download-installer.cdn.mozilla.net/pub/firefox/releases/43.0/win64/zh-CN/https://cc.embarcadero.com/Author/575019>http://delphi-z.ruhttps://download-installer.cdn.mozilla.net/pub/firefox/releases/43.0/win64/zh-CN/https://cc.embarcadero.com/Author/575019>http://delphi.icm.edu.pl/ftp/https://download-installer.cdn.mozilla.net/pub/firefox/releases/43.0/win64/zh-CN/https://cc.embarcadero.com/Author/575019>http://delphi-z.ruhttps://download-installer.cdn.mozilla.net/pub/firefox/releases/43.0/win64/zh-CN/https://cc.embarcadero.com/Author/575019
|
|||||
| 作者： |
|
2013/12/9 21:33:58 | ||||
| 21楼： | 其实就一简单问题 ---------------------------------------------- 3291763 |
|||||
| 信息 |
| 登陆以后才能回复 |
