Leere Zeilen im SynEdit löschen?

[Grolle]

Weiß jemand, wie das am besten geht? Ich habe einen
Text mit ca. 160 Zeilen. 50 davon sind leer und die
möchte ich löschen.

[arbu man]

Nimm doch eine for-Schleife:

Delphi-Quellcode:

var i:integer;
begin
  for i:=0 to synedit1.lines.count-1 do begin
    if synedit1.lines[i]='' then synedit1.lines.delete(i);
  end;
end;

[alcaeus]

2 Fehler (und diesmal darf ich den Einwand bringen :lol:)

Erstens darf die Schleife nur bis Count-1 gehn, da der Index bei 0 beginnt.
Und zweitens muss jede Schleife ueber Listen von hinten nach vorne (downto anstatt to) laufen, wenn Elemente in der Schleife geloescht werden.

Greetz
alcaeus

[Grolle]

So? Funktioniert aber nicht :?

Delphi-Quellcode:

var i:integer;
begin
  for i:=0 downto synedit1.lines.Count-1 do begin
    if synedit1.lines[i]='' then synedit1.lines.delete(i);
  end;
end;

[arbu man]

Delphi-Quellcode:

 for i:=synedit1.lines.Count-1 downto 0 do begin

Es wird ja runter gezählt

[alcaeus]

Ja, du willst ja auch nicht von 0 bis Count-1 runterzaehlen, sondern von Count-1 auf 0 runter.

Greetz
alcaeus