TStringlist: Delete in einer Schleife

[Go2EITS]

Hallo DP,

sicherlich könnt Ihr mir wieder weiterhelfen:
Ich "hänge" an einem Problem:

Ich habe eine Schleife die von 1 to t.count läuft:

Delphi-Quellcode:

//T ist t:Stringlist //
for i=1 to t.count do 
    begin
    if t[i]:=Suchstring then t.delete[i]
    end;

Da sich t.count in der Schleife verringert, bekomme ich natürlich einen Bereichsfehler.
Hat da jemand eine Ahnung, wie ich dies umgehen kann?

Vielen Dank für die Mühe im voraus. :hi:
Go2EITS

[Meflin]

dann baue einfach ein if i <= t.count ein ;)

[Tyrael Y.]

Delphi-Quellcode:

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

downto ist dein freund ;)

[3_of_8]

Delphi-Quellcode:

I:=0;
while I=0<t.count do
begin
  if t[I]:=Suchstring then t.delete[I];
  inc(I);
end;

Listen sind nebenbei 0-basiert. Von 1 bis t.count kriegst du sowieso ne Exception.

[Dax]

Zitat:

Zitat von Tyrael Y.

downto ist dein freund ;)

Der andere Freund hieße repeat oder while.

Delphi-Quellcode:

i := 0;
while i < list.Count do
begin
  if list[i] = Suchstring then
    List.Delete(i)
  else
    Inc(i);
end;

// bzw

repeat
  if list[i] = Suchstring then
    List.Delete(i)
  else
    Inc(i);
until i = List.Count;

[Hawkeye219]

@3_of_8

Manuel, das ist noch kein PASCAL. Und warum überprüfst du nicht immer alle Elemente der Liste?

//Edit
Den zweiten Satz darf Dax auch lesen :wink:

Gruß Hawkeye

[Bowler]

Zitat:

Zitat von Dax

Zitat:

Zitat von Tyrael Y.

downto ist dein freund ;)

Der andere Freund hieße repeat oder while.

Delphi-Quellcode:

i := 0;
while i < list.Count do
begin
  if list[i] = Suchstring then
    List.Delete(i);
  Inc(i);
end;

// bzw

repeat
  if list[i] = Suchstring then
    List.Delete(i);
  Inc(i);
until i = List.Count;

Aber auch nur, wenn list.Count bei jedem Durchlauf aktualisiert wird. Ansonsten gibt es IMHO den gleichen Fehler, wie in einer for-Schleife, da die while- oder repeat-Schleife dann übers Ziel hinaus läuft.

Gruß
Christian

[JasonDX]

Zitat:

Zitat von Bowler

Aber auch nur, wenn list.Count bei jedem Durchlauf aktualisiert wird. Ansonsten gibt es IMHO den gleichen Fehler, wie in einer for-Schleife, da die while- oder repeat-Schleife dann übers Ziel hinaus läuft.

Count ist eine ReadOnly-Property, welche beim Hinzufuegen und Entfernen eines Elementes, bzw. dem Loeschen der gesamten Liste immer aktualisiert wird.
Es waere nicht nur in diesem Fall suboptimal, wenn ich 10 Elemente in der Liste habe, aber Count mir angibt, ich haette 15 drinnenliegen ;)

greetz
Mike

[Angel4585]

Zitat:

Zitat von Tyrael Y.

Delphi-Quellcode:

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

downto ist dein freund ;)

Da schliess ich mich an.. so mach ich das auch immer

[Klaus01]

und noch eine Schleife:

Delphi-Quellcode:

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

Grüße
Klaus

[Tyrael Y.]

Zitat:

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:

Zitat von Tyrael Y.

Zitat:

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

Delphi-Quellcode:

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. :hi:

[Muetze1]

Das wäre falsch, wenn dann

Delphi-Quellcode:

 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:

Zitat von Go2EITS

Ich probiere die Lösung mit

Delphi-Quellcode:

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! :thumb:

Go2EITS

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

[Klaus01]

Zitat:

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. :shock: Ich habe meinen Beitrag oben schnell geändert. :hi: Vielen Dank!