Цитата:
|
Сообщение от angvelem
ТС достаточно было изменить на
Код:
Reset(f, SizeOf(Integer));
t := 1; |
Или же, как я предлагал, сделать переменную файла типизированной байтом:
Код:
var
f: file of Byte; // Вместо нетипизированного f: file;
Тогда в "Reset" не нужно указывать размер блока. И читать в соответствии с размером переменной: SizeOf(имя_переменной) вместо SizeOf(real).
Хотя всё равно вариант с TFileStream мне нравится больше
