пробуй эту функцию.
BlockRead(FromF, Buf, SizeOf(A), NumRead1);
считыват с открытого файла в буфер количество байтов (SizeOf) с открытого файла (FromF[i]) и возращает реально считанное число блоков (NumRead1).
Buf: array[1..512] of Char;
FromF: file;
NumRead1: Integer;
|