Программирование на Delphi 7 - страница 2

После нанесения на окно формы нужных компонент (из палитры) программист настраивает (конфигурирует) каждый выбранный компонент с помощью окна Инспектора объектов {4}. Окно Инспектора объектов позволяет каждому компоненту установить нужный размер, цвет, местоположение на форме и др.

После конфигурирования визуальных компонент их необходимо связать между собой в единое целое для получения готовой программы. Связывание компонент осуществляется с помощью Окна кода программы {3}. В данном окне пишутся операторы языка «Делфи», заимствованные с языка Pascal. После связывания компонент программа готова к компиляции и выполнению.

Для запуска готовой программы, вызова справки помощи, выхода из «Делфи» и др. служит Основное меню «Делфи» {5}. Наиболее часто используемые опции Основного меню продублированы кнопками быстрого доступа {6}. Нажатие на какую-либо кнопку быстрого доступа эквивалентно выбору соответствующего пункта Основного меню.

Любая программа на Делфи сохраняется на жестком диске компьютера в виде многих файлов. Для разных программ имена файлов могут совпасть, что приведет к их разрушению. Поэтому для каждой программы «Делфи» необходимо создавать свой каталог и в нем ее сохранять после завершения работы с «Делфи».

рис. 1

Обозначения:

1 – главное окно

2 – окно формы приложения (программы)

3 – окно кода программы

4 – окно инспектора объектов

5 – основное меню «Делфи»

6 – пиктографические кнопки быстрого к опциям основного меню

7 – палитра компонент

8 – визуальные компоненты

рис. 2

Рассмотрим в качестве примера задачу решения квадратного уравнения. Для этого на форму нужно поместить пять компонент типа «Edit», два компонента «Label» и одну кнопку «Button». Процедура для кнопки будет иметь следующее содержание:

procedure TForm1.Button1Click(Sender: TObject);

 var a,b,c,d,x1,x2: real; // Описание внутренних переменных

begin // Начало процедуры

try // Начало защищенного блока

  a:=strtofloat(Edit1.text); // Считываем данное «a»из визуального компонента «Edit1»

  b:=strtofloat(Edit2.text); // Считываем данное «b» из визуального компонента «Edit2»

  c:=strtofloat(Edit3.text); // Считываем данное «c» из визуального компонента «Edit3»

  d:=b*b-4*a*c; // Находим дискриминант

  x1:=(-b+sqrt(d))/(2*a); // Находим первый корень