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
)