Dateiwert an fester Bytestelle auslesen

[tkone]

Hi.
Gibt es eine Funktion/Prozedur, die von einer Datei den Bytewert einer fest vorgegebene Stelle ausliest?

MfG

[Namenloser]

Delphi-Quellcode:

var
  FileStream: TFileStream;
  ReadByte: Byte;
begin
  FileStream := TFileStream.Create('c:\datei.dat', fmRead);
  try
    FileStream.Seek(42, soFromBeginning);
    FileStream.Read(ReadByte,1);
  finally
    FileStream.Free;
  end;
  ShowMessage(IntToStr(ReadByte));
end;

[tkone]

merci. :thumb: