Доступ к нетипизированному файлу
Вы можете организовать доступ к файлу "без определенного типа" следующим
образом:
var
MyFile : file;
begin
assign(MyFile,Filename);
reset(MyFile,1);
{для записи}
Blockwrite(MyFile,item,sizeof(item));
{для чтения}
BlockRead(MyFile,item,sizeof(item));
close(MyFile);
end;
|
Имейте в виду, что для чтения/записи нетипизированного файла необходимо
использовать функции blockread и blockwrite, т.к. для использования нормальных
функций Read/Write компилятору необходимо знать формат файла.
|