今天我不得不修改一项古老的制度,做在 delphi 法生成文件包含一些信息. Nestas informações há elementos que se utilizam de caracteres não Alpha-numéricos como “;:”; e “;/”; 不料,令我吃惊的是,我有义务将其删除.
Procurei por uma função que substituísse caracteres como “;Ç”; para “;C”; 才发现去除函数.
然后,我创建了我的下方.
{ 对于 ASCII 等价替换特殊字符 } 功能 ReplaceNonAscii(const s: 字符串) : 字符串; var 我, POS: 整数; const undesiredchars : 字符串 = ' / ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ × ØÙÜÚÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùüúþÿ'; const 替换 : 字符串 = 'AAAAAAACEEEEIIIIDNOOOOOxOUUUbBaaaaaaaceeeeiiiionooooo ouuuby'; 开始如简单(结果, 长度(s)); 为我 := 1 长度(s) 什么时间开始 pos :ord =(s[我]); 如果 (s[我] 在 [#32, #48..#57, #65..#90, #97..#122]) 然后结果[我] :s =[我] 别人开始 pos := AnsiPos(s[我], undesiredchars); 结果[我] := 替换[POS + 1]; 结束; 结束; 结束;