Zeilen in einer Datei zählen

[Sharky]

Und hier mal eine kleine Anregung von mir *g*

Delphi-Quellcode:

function CountLines(const aFileName: string): Integer;
var
  DateiStream: TFileStream;
  CurrentByte: Word;
  Zeilen: Integer;
const
  LineBreak = 10;
begin
  result := -1;
  if (FileExists(aFileName)) then
  begin
    DateiStream := TFileStream.Create(aFileName, fmOpenRead);
    try
      zeilen := 0;
      if (DateiStream.Size > 0) then
      begin
        zeilen := 1;
        DateiStream.Position := 0;
        while DateiStream.Position < DateiStream.Size do
        begin
          DateiStream.Read(CurrentByte, 1);
          if (CurrentByte = LineBreak) then
          begin
            Inc(Zeilen);
          end;
        end;
      end;
    finally
      DateiStream.Free;
    end;
    result := Zeilen;
  end;
end;

procedure TDemoForm.btn_testClick(Sender: TObject);
var
  Zeilen: Integer;
begin
  Zeilen := CountLines('c:\test.txt');
  ShowMessageFmt('%d', [Zeilen]);
end;