本文整理自网络，侵删。
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 sql server 数据库转换为 access 数据库
Delphi 分解时间 �cdecodedate、decodetime … decodedatetime …
Delphi 2010 复制整个文件夹(当然包括嵌套文件夹)
Delphi xe android-uri-管理联系人uri
更多相关阅读请进入《Delphi》频道 >>
