probleme mit tstringlist

[gangs-taas]

hey,
ich muss schon wieder eine anfängerfrage stellen ...
also ich habe eine Tstringlist und ich weiß 100% das da leerzeilen drin sind.
die wollte ich jetzt hier mit löschen

Delphi-Quellcode:

  for i := 0 to Terminliste.Count do
  begin
    if Terminliste[i] = ' ' then
    Terminliste.Delete(i);
  end;

aber das geht nicht

wenn i eigl. auf eine leerzeile weisen müsste löscht er die einfach trotzdem nicht ...

wisst ihr wieso nicht ?

lg ^^

[mkinzler]

Delphi-Quellcode:

for i := 0 to Terminliste.Count-1 do
  begin
    if Trim(Terminliste[i]) = '' then
    Terminliste.Delete(i);
  end;

[Tryer]

Ja.

Wenn Du Element 3 löscht, rutschen alle weiteren nach vorne. Wenn du dann ab Element 4 weitersuchst hast Du ein Element übersprungen.

for i:= Pred(Count) downto 0 MfG,
Dirk

[gangs-taas]

danke


hm.. es gibt immer noch leerzeilen darin
sehr komisch

edit.

der fehler ist aber anscheindend irg. anders

danke
sorry für die anfänger fragen immer ...

[MacGuyver]

Moin

Ist doch ganz einfach. Mit einer For-Schleife geht das nicht. Schau:

Delphi-Quellcode:

i := 0;
while i < Terminliste.Count do 
begin 
  if Trim(Terminliste[i]) = '' then 
    Terminliste.Delete(i)
  else
    Inc(i); 
end;

Nicht getestet, sollte aber laufen.


Stefan

[p80286]

Zitat von MacGuyver:

Moin :hi:

Ist doch ganz einfach. Mit einer For-Schleife geht das nicht. Schau:

Stimmt leider nicht!

wie Dirk in #3 geschrieben hat

Delphi-Quellcode:

for i:= Pred(l.Count) downto 0 do
  if length(l[i])=0 then l.delete(i);

in den "Leerzeilen" könnten aber auch Blanks enthalten sein, dann
if length(trim(l[i]))=0 then l.delete(i); Gruß
K-H

[MacGuyver]

Ach so, rückwärts...

Was ist der Unterschied zwischen Trim("") = "" und Length(Trim("")) = 0 ??? Ich kenne da keinen. Das ist doch Geschmackssache, was man programmiert.

Die Leerzeichen werden doch von Trim entfernt, oder?


Stefan

[p80286]

sollte eigentlich kein Unterschied sein.

Ich arbeite lieber mit length damit ich keine vertipper a'la ' ' habe.

Gruß
K-H