Hallo,
zuerst einmal vielen Dank für die schnellen Antworten.
Ich habe da im Forum etwas gefunden und versucht für mich passend zu machen.
Wäre das so richtig?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var FS: TFileStream;
Buffer: Array of Byte;
I,Z: Integer;
Begin
z:=0;
Try
{Datei öffnen}
FS := TFileStream.Create('C:\OZF\vr130_ar_54871.txt', fmOpenReadWrite);
{Speicher für Buffer allozieren}
SetLength(Buffer,FS.Size);
{Daten einlesen (8ung: Buffer>>[0]<<}
FS.Read(Buffer[0],Length(Buffer));
{Bytefolge suchen}
For I := 0 to Length(Buffer) - 3 do
If (Buffer[I] = $0C)
Then Begin
Inc(Z);
End;
FS.Free;
ShowMessage('Anzahl: '+IntToStr(Z));
Except
On EFOpenError do ShowMessage('Datei konnte nicht geöffnet werden');
Else ShowMessage('Unbekannter Fehler');
End;
End;
CU Bea
[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]