Var MyFile : file;beginassign(MyFile,Filename);reset(MyFile,1);{для записи}Blockwrite(MyFile,item,sizeof(item));{для чтения}BlockRead(MyFile,item,sizeof(item)); close(MyFile);end; |
Имейте в виду, что для чтения/записи нетипизированного файла необходимо использовать функции blockread и blockwrite, т.к. для использования нормальных функций Read/Write компилятору необходимо знать формат файла. [000519]