Sucht in Gesamtstring nach AltString und ersetzt ihn mit Neu

[Nalincah]

Delphi-Quellcode:

uses sysutils, Windows;

function ErsetzeString(AltString:String; NeuString:String; GesamtString:String):String;
var
  PosAlt,LengthAlt:Integer;
begin
  while not pos(AltString,GesamtString) <> -1 do
  begin
    PosAlt := pos(AltString,GesamtString);
    LengthAlt := Length(AltString);
    Delete(GesamtString,PosAlt,LengthAlt);
    Insert(NeuString,GesamtString,PosAlt);
  end;
  Result := GesamtString;
end;