mehrere Tokens aus string löschen

[sniper_w]

Ich habe aber Delphi 6...
Meine Lösung (nicht schön aber geht...für meine Zwecke reicht) :

Delphi-Quellcode:

procedure ReplaceStr(var ToReplace:string; const strout,strin:string);
  var p :integer;
      before, after:string;
begin
  before := '';
  after := ToReplace;
  p := Pos(strout, after);
  while p<>0 do
  begin
    before := before + Copy(after,1,p-1) + strin;
    after := Copy(after, p+Length(strout), length(after) - p+Length(strout) );
    p := Pos(strout, after);
  end;
  ToReplace := before+after;
end;