delphi N个字符串替换成1个字符串

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/

推荐分享