BlockRead und E/A Fehler 998 ...

[paule32.jk]

Delphi-Quellcode:

var fsize: Integer;
var bcFile: File of Byte;
var buffer: Array of Byte;

AssignFile(bcFile,s);
FileMode := 0;  // read only
{$I-}
Reset(bcFile);
{$I+}
if IOResult <> 0 then
begin
  Application.MessageBox('Datei konnnte nicht geöffnet werden!', 'Visuanalyse', 48) ;
  exit;
end;

FSize := FileSize(bcFile);
SetLength(buffer,FSize);
ShowMessage('mem: ' + IntToStr(FSize));
BlockRead(bcFile,buffer,FSize);
ShowMessage('xxx');

Ergebnis: mem: 42 xxx

wie bringe ich nun buffer nach den "Instructions record ?