Hallo,
ich habe schon die Suchfunktion des Forums hier befragt und auch schon Antworten finden können.
Allerdings scheinen diese aber auf ganz anderer Weise zu funktionieren.
Wenn ich folgenden Code verwende, bekomme ich entweder den Fehler 998 oder die Ausnahme, das
hinter dem Dateizeiger gelesen wird:
Delphi-Quellcode:
type
TOpCode = (lit,opr,lod,sto,cal,int,jmp,jpc,wri);
Instruction = packed record
f: TOpCode; // command
l: Byte; // level
a: Integer; // address
end;
TInstructions = Array of Instruction;
PInstructions = ^TInstructions;
var
Instructions : PInstructions;
var
inFile: File;
procedure foo(filename: String);
var
FSize: Integer;
begin
AssignFile(inFile,filename);
FileMode := 0;
Reset(inFile,1);
FSize := FileSize(inFile);
GetMem(Instructions,FSize);
BlockRead(inFile,Instructions^[0],FSize); <--- i/o error 998
//BlockRead(inFile,Instructions, FSize); <--- read behind file
...
FreeMem(Instructions,FSize);
end;
es handelt sich um eine binär-Datei.
kann da Einer (oder Mehrere) sachdienliche Hinweise geben ?