- procedure LoadFileContent(filename: String; sizeOfFile : Int64; var content : PFileContent);
- var
- F: File;
- begin
- content^.Size := sizeOfFile;
- content^.Data := AllocMem(content^.Size);
- AssignFile(F, filename);
- try
- Reset(F, 1);
- // Warum funktioniert nur content^.Data[0] und nicht content^.Data (EA 998 Fehler)
- BlockRead(F, content^.Data[0], content^.Size);
- finally
- CloseFile(F);
- end;
- end;