Add Leerzeichen nach gelöschten POS?

[himitsu]

Ich hoffe doch mal das GetPosNumX soll sowas wie PosEx sein?

dann würde ich dir mal raten dieses
for zaehlen := 0 to length(S) do in
for zaehlen := length(S) downto 1 do Zeichen 0 wird's nicht geben
und wenn du löschts, dann verändert sich die Länge (daher rückwärts zählen)

und das ganze:

Delphi-Quellcode:

for zaehlen := 0 to length(S) do 
begin 
  Position := GetPosNumX(Search_Text, S, Position); 
  Delete(S, Position, length(Search_Text)); 
end;

wobei es wohl so efektiver wäre (obwohl StringReplace wohl wirklich besser wär):

Delphi-Quellcode:

Position := Pos(Search_Text, S);
while Position > 0 do
begin 
  Delete(S, Position, length(Search_Text)); 
  Position := PosEx(Search_Text, S, Position + 1); 
end;