Leere Zeilen beim Einlesen überspringen

Hallo, wenn ich aus einer Datei etwas in eine ListBox einlesen will, klappt das soweit ganz gut, nur würde ich z.B. gerne die ganzen leeren Zeilen weg lassen, sodass diese nicht mit übernommen werden. Bin leider etwas ansatzlos.

Hier der Quellcode dafür.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.ButtonEinlesenClick(Sender: TObject);

var Anzahl : Integer;

Zeile : String;

TextDatei : TextFile;

begin

  ListBox1.Items.Clear;

  Anzahl:=0;

  AssignFile(TextDatei,'Hier steht mein Pfad');

  Reset(TextDatei);

  repeat

      ReadLn(TextDatei,Zeile);

      Inc(Anzahl);

      ListBox1.Items.Add(AnsiUpperCase(Zeile));

  until EOF(TextDatei);

    CloseFile(TextDatei);

    AnzahlEdit.Text:=IntToStr(Anzahl);

end;

Kann mir jemand vlt helfen und sagen, wie das geht? :=

Julian

Leere Zeilen beim Einlesen überspringen

Leere Zeilen beim Einlesen überspringen

Forumregeln