Binärdatei mit TFileStream auslesen

[Progman]

Und warum nicht File of Byte? Ist zwar etwas veraltet, aber funktioniert

Delphi-Quellcode:

...
var TestFile: File of Byte;
...
procedure ReadTestFile(fileName: String);
var b: Byte; s: String;
begin
  AssignFile(TestFile,fileName);
  Reset(TestFile);
  s:='';
  while not EoF(TestFile) do begin
    Read(TestFile,b);
    s:=s+Char(b);
  end;
  CloseFile(TestFile);
end;

Statt einem String könnte man auch in ein Array of Char einlesen. Dessen Größe müsste vorher mit
SetLength(Array, FileSize(TestFile); gesetzt werden.