Leere Zeilen beim Einlesen überspringen

[Popov]

Delphi-Quellcode:

  repeat
      ReadLn(TextDatei,Zeile);
      Inc(Anzahl);
      if Trim(Zeile) <> '' then 
        ListBox1.Items.Add(AnsiUpperCase(Zeile));
  until EOF(TextDatei);

Evtl. noch Trim einsetzen, wenn für dich Leer eine Zeile ohne Inhalt, aber evtl. mit Leerzeichen bedeutet.

//EDIT:

Mal so ein Tipp: Items von TListBox ist eine TStrings Klasse, d. h. du kannst den Inhalt auch laden mit: ListBox1.Items.LoadFromFile(TextDatei); Und wegen der Leerzeilen:

Delphi-Quellcode:

  ListBox1.Items.LoadFromFile(TextDatei);
  for i := ListBox1.Items.Count - 1 downto 0
    if Trim(ListBox1.Items[i]) = '' then 
      ListBox1.Items.Delete(i);