Leere Zeilen beim Einlesen überspringen

[JulianT]

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

[Klaus01]

Guten Morgen,

vor dem Hinzufügen in die Listbox prüfen ob die Zeile etwas enthält.

Delphi-Quellcode:

if length(zeile) > 0 then
 ...

Grüße
Klaus

[himitsu]

Zum Glück ist der Compiler meistens intelligent genug, so daß er if length(zeile) > 0 then oftmals gegen ein einfaches if Zeile <> '' then ersetzt.

Aber so oder so, wenn man das prüft, was auch in der Fragestellung drin steht, dann hat man natürlich die Lösung.

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

[himitsu]

Delphi-Quellcode:

if Trim(Zeile) <> '' then 
  ListBox1.Items.Add(...);

Wirklich nicht so?

Warum eigentlich Repeat-Until und nicht While-Do?
Ist die Datei leer, dann gibt es keine Zeile, die man auslesen kann, also vorher prüfen.

[Popov]

Zitat von himitsu:

Wirklich nicht so?

Jep. Nicht drauf geachtet.