本文整理自网络,侵删。
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 getprocessmemoryinfo获取进程占用内存大小
Delphi tstylemanager读取vsf皮肤文件信息
更多相关阅读请进入《Delphi》频道 >>