本文整理自网络,侵删。
function ReplaceNCharToOneChar(S: string; AChar: Char): string;
var
SubStr: string;
begin
SubStr := AChar + AChar;
while Pos(SubStr, S) > 0 do
begin
S := StringReplace(S, SubStr, AChar, [rfReplaceAll, rfIgnoreCase]);
end;
Result := S;
end;
//文本处理: AAAA.. .替换为A
调用:
procedure TForm2.Button1Click(Sender: TObject);
var
vList :TStringList ;
i: integer ;
ALine:string ;
AChar:Char;
CharLocal: Integer ;
begin
//文本处理: AAAA.. .替换为A
vList:=TstringList.Create ;
AChar:=' ';
try
vList.setstrings(Memo1.Lines);
for i:=0 to vList.Count-1 do
begin
ALine := vList.Strings[i];
ALine := ReplaceNCharToOneChar(ALine, AChar);
vList. strings[i] := StringReplace(ALine, ' ', '=', [rfReplaceAll, rfIgnoreCase]);
end ;
Memo2.Lines :=vList ;
finally
vList. Free ;
end ;
end;
来源:http://www.xuexidashi.vip/
相关阅读 >>
Delphi extractfileext() 获取文件后缀的函数
Delphi 关于选择文件路径 selectdirectory 弹出窗口居中的问题
Delphi 颜色转换函数: 从 Delphi 到 html
Delphi firedac 下的 sqlite [12] - 备忘录
更多相关阅读请进入《Delphi》频道 >>