Одной строкой

Доступ к нетипизированному файлу

Вы можете организовать доступ к файлу "без определенного типа" следующим образом:

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]