Закрываем файл и подводим итоги

Выполнив сохранение пасьянса, файл надо закрыть. Делается это с помощью стандартной функции:

void FileClose.(int iFile);

При выборе пункта меню Сохранить должен выполняться следующий метод:

void _fast.call TFormI: :SaveItemClick(TObject

*Sender) {

if( FileExists(FILE_NAME_STR) ) { AnsiString text;

text = FILE_EXIST_STR + FILE_NAME_STR + " ?";

if't Application->MessageBox (text. c_str'() , HEADER_STR.C_str(),

MB_YESNO I MB_ICONQUESTION) != IDYES return ;

} int iFile, err;

iFile = FileCreate(FILE_NAME_STR);

if( iFile == -1 )

{ ShowMessage(CANT_CREATE_STR + FILE_NAME_STR) ;

return;

} err = FileWrite(iFile, &Cycle, sizeof(Cycle));

if( err == -1 )

{ ShowMessage("Cycle"+BAD_OUTPUT_STR) ;

FileClose(iFile); return; } err ~- FileWrite(iFile, &Line, sizeof(Line));' if( err == -1 )

{ ShowMessage("Line"+BAD_OUTPUT_STR) ;

FileClose(iFile) ;

return ;

}

234