Seitenumbrüche in Textdatei zählen

[H4ndy]

Xaromz hat recht.
Falls du bei einem FileStream bleiben willst, würde ich das so machen:
(Dürfte nur, wenn ich mir das richtig überlege recht langsam sein)

Delphi-Quellcode:

var FS: TFileStream;
    buf: byte;
    UmbruchCount: integer;
begin
  UmbruchCount := 0;

  FS := nil;
  try
    // Datei zum lesen öffnen, Schreiben verbieten
    FS := TFileStream.Create('C:\bla.txt',fmOpenRead or fmShareDenyWrite);

    // Gesammten FileStream Byte-weise durchlaufen
    while FS.Position < FS.Size do begin
      FS.Read(buf,sizeof(buf));
      if buf = $0C then
        inc(UmbruchCount);
    end;
  finally
    FS.Free;
  end;

(Ich hoffe der Code funktioniert, konnte jetzt leider nicht testen )