Стр. 290 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
290
r:integer;
//файловая переменная
f:TextFile;
begin
//диалоговое окно
r:=MessageDlg('Сохранить файл?',mtInformation,mbYesNoCancel,0);
//если пользователь нажал кнопку Yes
if r=mrYes then
//выбор имени сохраняемого файла
if SaveDialog1.Execute then
begin
//сохранение таблицы в файл
savetofile(SaveDialog1.FileName);
//завершение работы приложения
Application.Terminate;
end;
//если пользователь нажал кнопку No
if r=mrNo then
//завершение работы приложения
Application.Terminate;
//если пользователь нажал кнопку Cancel
if r=mrCancel then
//отмена закрытия формы
Action:=caNone;
//связь файловой переменной с файлом
AssignFile(f,CurrDir+'\Settings.stt');
//перезапись файла
Rewrite(f);
//запись в файл имени текущего файла
writeln(f,currfile);
//запись в сохраняемый файл Settings.stt признака галочка включена
if N7.Checked then
//запись в файл значения свойства Checked
writeln(f,'true')
else
writeln(f,'false');
if N8.Checked then
writeln(f,'true')
else
writeln(f,'false');
if N12.Checked then
writeln(f,'true')
else
writeln(f,'false');