zeilen in txt datei zählen

[Hansa]

Stringlist ist unnötig. Wozu das ? In einem Programm habe ich eine Gauge, um den Fortschritt anzuzeigen. Dazu brauche ich aber die Zeilenanzahl einer nicht kleinen Datei (1.000.000 Zeilen ?). Die paar Zeilen hier halten mich ca. 0,1 Sek. auf :

Delphi-Quellcode:

  AssignFile (k,Dateiname');
  reset (k);
  WHILE NOT EOF (k) DO BEGIN
    ZeilenAnzahl := ZeilenAnzahl + 1;
    readln (k);
  END;
  gaugeFortschritt.MaxValue := ZeilenAnzahl;