本文整理自网络，侵删。
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 vcl 的 tpagecontrol 控件，实现对页签的拖动
Delphi clipboard 截图后将图片数据复制到剪贴板
Delphi xe2获取文件的 md5、crc、sha-1、sha-256、sha-512
Delphi中combobox.items.indexof用法
Delphi firemonkey里触发home按键被按下的事件
更多相关阅读请进入《Delphi》频道 >>
