Datei binär einlesen

[sakura]

JA.

Delphi-Quellcode:

var
  I, OneByte: TMy32Bytes;
begin
  with TFileStream.Create('C:\Temp\SimpleFile.dat', fmOpenRead) do
  try
    for I := 0 to 31 do
    begin
      Read(OneByte, SizeOf(OneByte));
      ShowMessage(IntToStr(OneByte));
    end;
  finally
    Free;
  end;
end;