4.4 Константы
При разработке программы часто возникают ситуации, когда нужно использовать лишь одно конкретное значение переменной. В этом случае удобно использовать константы. Константы отличаются от переменных тем, что им присваивают определенное значение в разделе описаний. Поэтому в теле программы уже нет необходимости вводить операцию присвоения значений. Но, тем не менее, в теле программы менять значение константы можно.
Константы описываются после ключевого слова const. Тип у константы можно указывать, а можно и не указывать. Значение константы задается после знака равенства.
Например, const PI = 3.14;
Е:Real = 2.87;
Названия констант принято записывать прописными буквами, чтобы легко отличать их от переменных.
Помимо числовых констант, в Delphi существуют строковые и символьные константы. Символы имеют тип Char и записываются в одиночных кавычках: ‘Язык программирования Delphi’.
Например, const Prog = ‘Язык программирования Delphi’;
4.5 Структура программного модуля
Программа в Delphi записывается в файле программного модуля. Первоначально программный код содержит минимальный исходный текст (рис. 49).
Рис. 49 Окно программного кода
Минимальный исходный текст программного кода имеет следующий вид:
//заголовок программного модуля
unit Unit1;
//зарезервированным словом interface открывается секция интерфейсных объявлений. Здесь описываются программные элементы: типы, классы, процедуры и функции, которые будут «видны» другим программным модулям.
interface
//после зарезервированного слова Uses перечисляются подключенные модули.
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
//после зарезервированного слова Type в программе объявляются используемые типы.
type
//описание нового объекта TForm1, который происходит от объекта TForm. Это значит, что TForm1 будет обладать всеми возможностями TForm.
TForm1 = class(TForm)
//Далее записываются компоненты и события
Private
// после Private записываются закрытые данные объекта. Здесь можно описывать переменные и методы, доступные только для объекта TForm1.
{ Private declarations }
Public
// после Public записываются открытые данные объекта. Здесь можно описывать переменные и методы доступные из любого другого модуля
{ Public declarations }
end;
//объявление глобальных переменных.
var
Form1: TForm1;
//зарезервированным словом implementation открывается секция реализаций. В ней описывается работа программных элементов с помощью процедур и функций.
implementation
//директива, предназначенная для связывания программного модуля с описанием соответствующей ему формы (.dfm файла).
{$R *.dfm}
// end с точкой означает конец модуля
end.
§5 Основные операторы языка программирования Delphi
5.1 Оператор присваивания
С оператором присваивания мы уже работали, когда задавали новые значения у свойств объектов в тексте программы (см. п. 3.5).
Оператор присваивания служит для присвоения нового значения некоторой переменной или свойству объекта.
Формат записи оператора присваивания:
<Имя переменной>: = <Выражение>;
или
<Объект. Свойство>: = <Новое значение>;
Оператор присваивания работает следующим образом. Переменная, стоящая в левой части оператора, становится равной той величине, которая находится справа. Типы этих величин должны совпадать.
Например:
а:= 1;
b:= 0.5;
Form1.Height:=500;
Эта запись означает, что переменной а присваивается число 1, переменной b – число 0.5. С помощью третьей операции присваивания свойство Height (Высота) у формы станет равным 500.
Пример. Составить программу, в которой по щелчку на кнопке меняются её размеры. |
Поместим на форму компонент TButton. С помощью окна Инспектора объектов установим размеры кнопки: Height (Высота) – 80, Wight (Ширина) – 160. Графический интерфейс окна будет иметь следующий вид (рис. 50):
Рис. 50 Окно с кнопкой
Щелкнем дважды по созданной кнопке, при этом в коде программы откроется обработчик события OnClick.
Чтобы изменить размеры кнопки нужно присвоить свойствам Height и Wight компонента Button1 новые значения. Текст программы в процедуре будет следующий:
Procedure TForm1.Button1Click(Sender: TObject); |
Begin |
Button1.Height:=30; |
Button1.Width:=80; |
end; |