-
Улучшение проекта
Созданный проект решает задачи, поставленные перед ним, но и имеет некоторые недостатки. Один из них состоит в том, что при подготовке к повторным вычислениям предыдущий результат остается в поле результата, хотя исходные данные меняются. Это создает иллюзию того, что проект работает неправильно. Чтобы устранить этот недостаток, воспользуемся событием onChange для полей Edit1 и Edit2. Это событие происходит тогда, когда содержимое поля изменяется.
Процедура, обрабатывающая это событие должна очищать поле Edit3.
Для создания этой процедуры откройте закладку «События» в окне инспектора объектов. Выберите в окне инспектора объектов компонент Edit1, найдите событие onChange и сделайте двойной щелчок по пустому полю имени. В поле появится имя Edit1Change. Замените имя Edit1Change на имя EditChange. Такую замену мы делаем в связи с тем, что процедура будет связана не только с полем Edit1, но и с полем Edit2.
Дважды щелкните по новому имени и убедитесь, что имя шаблона процедуры тоже изменилось.
Далее найдите в списке объектов окна инспектора компонент Edit2, установите событие onChange и выберите из списка имен процедур имя EditChange.
Теперь событие onChange обоих компонентов связано с одной и той же процедурой.
Напомним, что процедура должна очищать поле Edit3, а очистку всех полей мы делали в процедуре инициализации. Написать процедуру не сложно, можно даже скопировать одну стоку из ранее написанной процедуры. На рисунке 1.14 приведено окно с текстом этой процедуры.
Рисунок 1.14 – Процедура очистки поля Edit3
Посмотрите, как работает измененное приложение.
Практика программирования показывает, что улучшать проекты можно до бесконечности, но мы не пойдем по этому пути и разработку проекта на этом закончим.
-
Сохранение проекта
Для сохранения проекта целесообразно создать специальный каталог на рабочем диске, так как в состав проекта входит много файлов. Можно назвать его Calculator1.
Для сохранения формы и ее модуля следует активизировать форму или текст модуля и вызвать из главного меню функцию File->SaveAs. В открывшемся диалоге сохранения файла нужно ввести имя файла. Имя должно быть понятным, поэтому рекомендуем имя UnitCalculator1. Введите имя. Убедитесь, что установлен тип файла Delphi Units(*.pas) и правильно выбрана папка для сохранения модуля. После этого нажмите клавишу «Сохранить».
Для сохранения файлов проекта следует вызвать из главного меню функцию File->SaveProjectAs. В качестве имени файлов проекта рекомендуем вам имя ProjectCalculator1. Введите имя. Убедитесь, что установлен тип файла DelphiProject(*.dpr) и правильно выбрана папка для сохранения модуля. Теперь нажмите клавишу «Сохранить».
После этого рекомендуем вам заглянуть в папку с проектом и убедиться, что файлы там действительно есть и размер у них не нулевой. Обязательно должны быть файлы ProjectCalculator1.dpr, UnitCalculator1.dfm, UnitCalculator1.pas.
Завершите сохранение файла копированием папки с проектом на личную дискету.
Сохранив проект, можете выти из Delphi.
Чтобы продолжить работу с проектом, запустите Delphi и вызовите из главного меню функцию File->Open Project. В появившемся диалоге открытия файла найдите папку с файлом проекта и откройте его.