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);