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;