For-Schleife für eine Stringliste mit Insert in der Schleife

[Alex_ITA01]

komisch, ich habe aber nie eine Fehlermeldung bekommen...
Aber trotzdem danke für den Tip. Ist klar, dass es nach einer Listenindex-Exception riecht.
Werde das Beispiel mal testen.Danke

[Alex_ITA01]

Das obrige Beispiel funktioniert. Danke!!!
Aber eine Frage, greifst du damit nicht auch auf ein vielleicht nicht vorhandes Listenelement zu?

Delphi-Quellcode:

           if (Pos('NETWORK', File_Inhalt.Strings[i]) > 0) and 
              (Pos('TITLE', File_Inhalt.Strings[i + 1]) > 0) and 
              (Pos('=', File_Inhalt.Strings[i + 1]) > 0) then

MFG Alex

[Arthur Hoornweg]

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]

[NicoDE]

Zitat von Alex_ITA01:

Aber eine Frage, greifst du damit nicht auch auf ein vielleicht nicht vorhandes Listenelement zu?

Nö, weil die While-Bedingung i < Count - 1 lautet (und auf i+2 wird auch nur zugegriffen falls es vorhanden ist).