Alles viel zu kompliziert. Ich lasse FOR Schleifen, die in Listen etwas einfügen oder aus Listen etwas entfernen, immer rückwärts ablaufen. Das macht das Ganze Prozedere tausendmal simpler.
Beispie1 1:
Delphi-Quellcode:
For i:=StringListe.Count-1 DOWNTO 0 do
Begin
if StringListe[i]='Weg damit' then
Stringliste.Delete(i);
End;
Beispie1 2:
Delphi-Quellcode:
For i:=StringListe.Count-1 DOWNTO 0 do
Begin
if StringListe[i]='Untereintrag erstellen' then
Stringliste.insert(i+1,'Dies ist ein Untereintrag');
End;
Beispiel 3:
Delphi-Quellcode:
VAR Q:string='test X test X test X test X';
i:integer;
BEGIN
For i:= length(Q) DOWNTO 0 do
if Q[i]='X' then delete(Q,i,1);
END;
[edit=alcaeus]Code-Tags eingefuegt. Mfg, alcaeus[/edit]