Доступ к нетипизированному файлу
Вы можете организовать доступ к файлу "без определенного типа" следующим образом:
|
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 компилятору необходимо знать формат файла. [000519]
