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