Введение в технологию программирования. Часть 3. Проект OLYMPUS-D. Коржов Е.Н - 58 стр.

                 for i := 1 to 4 do Readln (FN);
                 Readln (FN,NMaxIt); Edit1.Text := IntToStr(NMaxIt);
                 for i := 1 to 2 do Readln (FN);
                 Readln (FN,PrintStep); Edit1.Text := IntToStr(PrintStep);
            end;
           Close(FN);
           Show.Form2;
        end; { TCronus.ToolButton2Click }

    Аналогично создается процедура, реализующая действие пользователя
при выборе команды Open из главного меню программы.

    Затем выполняется отладка и тестирование проекта после подключе-
ния двух действий пользователя за счет добавления созданных процедур.


         3.6. Сохранение исходных данных в файле на диске

    Эта ситуация возникает в том случае, когда пользователь набрал дан-
ные с клавиатуры или выполнил их изменение и намерен сохранить их на
диске в файле рабочего каталога проекта InputData. При нажатии кнопки
Save или выбора команды Сохранить опции File главного меню, открыва-
ется окно диалога для работы с папкой InputData. Значения, находящиеся
в окне Исходные данные, должны быть записаны в файл в том же виде,
как и текст файла, находящегося в приложении 1.

    Для организации данных действий пользователя на главную форму
устанавливается компонент SaveDialog, расположенный на странице с за-
кладкой Dialogs; пишется код процедур, реализующий это действие поль-
зователя при нажатии кнопки на панели инструментов или выполнении
команды Save. Текст одной из этих процедур, имеющих одно и то же тело,
представлен ниже.

procedure TCronus.ToolButton4Click(Sender:TObject);
{
   Назначение: Запись исходных данных в файл на диск при нажатии
               кнопки Save на панели инструментов Стандартная
                                    58