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.
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