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 ?

[himitsu]

Warum immer wieder neue Threads, zum selben Problem?
https://www.delphipraxis.net/213934-...ppt-nicht.html
https://www.delphipraxis.net/213935-...-new-post.html
https://www.delphipraxis.net/213937-...-new-post.html

Mach endlich die Speicherverwaltung dieses dämlichen Arrays richtig und fertig.
Es versteht sowieso keiner, warum das auch nochmal in einem Pointer zu speichern, obwohl dynamische Arrays intern bereits ein Pointer sind.
Oder alternativ einen Zeiger auf einen statischen Record zu benutzen.