zeilen anzahl von text file bestimmen ?

[toms]

Google meint:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  s: string; 
  i: integer; 
  f: textfile; 
  b: array[0..16383] of char; 
  starttime: longint; 
  stop_time: longint; 
begin 
  if opendialog1.execute then 
  begin 
    i := 0; 
    starttime := timegettime; 
    assignfile(f,opendialog1.filen*ame); 
    system.settextbuf(f,b); 
    reset(f); 
    while not(eof(f)) do 
    begin 
      inc(i); 
      readln(f); 
    end; 
    closefile(f); 
    stop_time := timegettime; 
    edit1.text := 'Lines read = '+inttostr(i); 
    str(((stop_time - starttime) / 1000.0):0:3, s); 
    showmessage('Elapsed time = '+s); 
  end; 
end;