-
Обеспечение перехода к расчетам по новому участку.
Для перехода к вводу новых данных мы используем процедуру обработки события OnClick кнопки «Новый» (But_New).
Откройте соответствующую заготовку этого события и добавьте необходимые операторы. В результате мы должны получить следующий текст процедуры:
procedure TForm1.But_NewClick(Sender: TObject);
begin
a:=0; b:=0; c:=0;
P:=0; S:=0;
Edit1.Text := 'Ввести А';
Edit2.Text := 'Ввести В';
Edit3.Text := 'Ввести С';
Edit1.SetFocus;
end;
Фактически мы можем скопировать операторы из процедуры обработки события «OnCreate» формы и добавить оператор перевода фокуса (курсора) на первое окошко: Edit1.SetFocus;.
Проверьте работу данной функции и вернитесь в конструктор.
-
Обеспечение работы кнопки «Завершить».
Так как основной анализ закрытия формы выполняется процедурой «procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);» события «OnCloseQuery» формы, то в обработчике события OnClick кнопки «Завершить» надо добавить только оператор Close:
procedure TForm1.But_ExitClick(Sender: TObject);
begin
Close;
end;
После вставки этого оператора проверьте работоспособность программы на закрытие разными способами.
-
Тестирование и документирование.
Для данной программы тестирование может быть выполнено вводом разных наборов исходных данных с анализом результатов счета и технологии работы программы. По результатам тестирования должны быть сделаны выводы об улучшении функциональных характеристик программы и допущенных ошибках. Мы эти операции фактически выполнили в процессе создания проекта.
Документирование для данного варианта программы фактически было выполнено в процессе ее создания. Обычно, оно заключается в подробном описании технологии работы с программой (процесса решения задачи) – «инструкции для пользователя».
Для отчета Вы должны распечатать текст программы модуля Formgl1 формы. Для этого выполните команду «File Print…», настройте опции окна «Print Selection», как показано на рисунке:
и нажмите кн. ОК.
Продемонстрируйте преподавателю работу программы и предъявите распечатку.
Распечатка потребуется Вам для внесения дальнейших изменений – сохраните ее.
Юрий Николаевич Тимохин