TStringlist: Delete in einer Schleife

[Tyrael Y.]

Zitat von Klaus01:

und noch eine Schleife:

Delphi-Quellcode:

while t.IndexOf(suchstring) > -1 do
  t.delete(t.indexOf(suchstring);

Grüße
Klaus

Diese Schleife ist nur nützlich wenn jeder Eintrag nur einmal innerhalb der Liste besteht, da nur der erste gefundene gelöscht wird.
Ansonsten ist es auch ok.

[Klaus01]

Zitat von Tyrael Y.:

Zitat von Klaus01:

und noch eine Schleife:

Delphi-Quellcode:

while t.IndexOf(suchstring) > -1 do
  t.delete(t.indexOf(suchstring);

Grüße
Klaus

Diese Schleife ist nur nützlich wenn jeder Eintrag nur einmal innerhalb der Liste besteht, da nur der erste gefundene gelöscht wird.
Ansonsten ist es auch ok.

Ich denke mal das sie anders arbeitet,
so wie ich es sehen wird die while schleife
so lange wiederholt bis der Suchstring nicht
mehr gefunden wird (-1).

Nachdem der erste Eintrag gefunden wurde, wird er gelöscht.
Bei einem weiteren Durchlauf wird wenn ein zweiter Eintrag gefunden.

Grüße
Klaus

[Tyrael Y.]

....ups hast Recht, sry *schäm*

Die Schleife funktioniert.

[Go2EITS]

@Alle:
Vielen Dank für Eure schnellen und, für mich zumindestens, so interessanten Antworten.

Genau das ist das Problem: Wenn List.count = 10 ist, wird mit List.delete list.count zu 9.
Die übliche for-Schleife bringt einen Bereichserror.

Ich probiere die Lösung mit for I=List.count downto 0 Sie erscheint diese Lösung die Schlüssigste zu sein.

Ich verfolge aber sehr aufmerksam die Diskussion mit While/repeat.
Wenn mein Code läuft, probiere ich mal die Repeat/Whileversion aus.

Vielen Dank und ich berichte, wie es läuft.

[Muetze1]

Das wäre falsch, wenn dann  For i := List.Count-1 DownTo 0 Do du hast die -1 bei Count vergessen.

Und zu der angemerkten Repeat/Until Schleife: Die ist nur richtig, wenn man vorher sicherstellt, dass mindestens ein Element in der Liste enthalten ist, weil er beim ersten Durchlauf sofort auf das i. Element zugreift, wobei i wohl mit 0 initialisiert worden ist. Daher: immer aufpassen bei Fuss-gesteuerten Schleifen, da die Bedingung immer erst nach einem Durchlauf überprüft wird.

Und dann noch zu der Count Read Only Anmerkung: Dies kann man nur auf TStrings und seine Nachfahren anwenden, bei anderen Liste wie z.B. von TList abgeleitet ist Count setzbar um eine bessere Speicheroptimierung zu erreichen. Wenn man weiss dass man 40 Einträge hinzufügt, kann man bei den Listen dieses Optimierter gestalten.

[Tyrael Y.]

Zitat von Go2EITS:

Ich probiere die Lösung mit for I=List.count downto 0 Sie erscheint diese Lösung die Schlüssigste zu sein.

Du musst aber bei List.Count-1 anfangen, nicht vergessen

Delphi-Quellcode:

for i := List.count -1 downto 0 do
begin
  if List[i] = Suchstring then 
    List.delete[i] 
end;

[Go2EITS]

@Muetze1
Habe meinen Fehler mit List.count vom Compiler um die Ohren bekommen und in list.count-1 geändert.
Es klappt mit dem Downto prima. Die While/Repeat-Schleifen sind für den Zweck etwas umständlich.
[EDIT]
Die Lösung von Klaus01 funktioniert doch besten! Ich habees gerade ausprobiert.
[\EDIT]

Super Antworten, da hat man sein Brain V1.0 ein wenig anstrengen müssen.
Vielen Dank, kann nun weiter arbeiten!

Go2EITS

@Tyrael Y. genauso habe ich es gelöst!

[Klaus01]

Zitat von Go2EITS:

@Muetze1

Aber wenn ich den Suchstring gefunden haben, habe ich immer noch Strings in der Schleife.
Die -1 wird nie erreicht.

Go2EITS

@Tyrael Y. genauso habe ich es gelöst!

Die -1 wird erreicht, wenn Dein Suchstring nicht gefunden wurde.
IndexOf ist etwas anderes als TstringList.count.

Grüße
Klaus

[Go2EITS]

@Klaus01
Habe gerade Deinen Vorschlag ausprobiert. Du hast recht. Es geht. Ich habe meinen Beitrag oben schnell geändert. Vielen Dank!