|
А ты и вправду аццкий троглодит - сразу на WinAPI хреначить.
примерно так надо
var
F, ReadBytes: Cardinal;
a: TMyType;
...
// Открыть
F := CreateFile(PChar(<FileName>), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
// Матюкнуться, если облом при открытии
If F = INVALID_HANDLE_VALUE then
begin
MessageBox(0,PChar('File '+ FileName + ' not found'), 'glLoadTexture',0);
exit;
end;
...
// прочитать переменную типа TMyType
ReadFile(F, a, SizeOf(TMyType) , ReadBytes, nil);
// В ReadBytes - будет скока действительно прочитали байт; может быть меньше SizeOf(TMyType)
...
// Закрыть
CloseHandle(F);
|