»^-^»^»_---»-^»»^^-^^-»„«^-^^

err = FileWrite(iFile, &Pos, sizeof(Pos));

i?( err == -1 )

{ ShowMessage("Pos"+BAD_OUTPUT_STR) ;

FileCiose(iFile) ;

return ;

} err' = FileWrite(iFile, &Pack, sizeof(Pack));

if( err == -1 )

{ ShowMessage("Pack"+BAD_OUTPUT._STR) ;

FileClose(iFile) ;

return;

} err = FileWrite(iFile, Well,

sizeof(TCard)*5*5*PACK_TOTAL) ;

if( err == -1 )

{ ShowMessage("Well"+BAD_OUTPUT_STR) ;

FileClose(iFile) ;

return;

} FileClose(iFile) ;

}

Обратите внимание на то, что в любых ситуациях файл обязательно закрывается.

Считывание данных

Стандартная функция считывания данных практически ничем не отличается от своей коллеги, сохраняющей информацию в файле. Ее вид точно такой же, только название другое — FileReadQ.

Давайте подготовим метод реакции на выбор пункта меню Восстановить. В нем прежде всего надо выполнить открытие файла. В этом поможет стандартная функция

int FileOpen(AnsiString FileName, int Mode);

235