zeilen in txt datei zählen

[GuenterS]

warum nicht so?

Delphi-Quellcode:

procedure LoadLast15LinesOfFile(aFileName: string; aListBox: TListbox);
var
  i: integer;
begin
   aListBox.Sorted := false;
   aListBox.Items.LoadFromFile(aFileName);
   for i := aListbox.Count - 1 downto 15 do
      aListBox.Items.Delete(i);
end;