Delphi-Quellcode:
function Replace(Input:string):string;
var RegExpr:TRegExpr;
begin
RegExpr:=TRegExpr.Create;
try
RegExpr.ModifierG:=false;
RegExpr.Expression:='(\[.*\])';
Result:=RegExpr.Replace(Input, '', false);
finally
RegExpr.free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MemoIniShow.Lines[0] := Replace(MemoIniShow.Lines[0]);
end;
es gibt leider doch noch ein Problem.
Es werden immer 6[*] auf einmal gelöscht. Das bedeutet für mich, dass wenn in einem Text 20x[*] vorkommt, dass ich 4 mal auf den Butto1 klicken muss. Nach dem 10-15 mal drücken allerdings führt er keinen Replace mehr aus, obwohl ich auf den Button drücke und noch[*] Stellen vorhanden sind.
Woran liegt das?