Это необязательный раздел. Если не нужно объявлять никакие переменные, то
и писать var не надо.
Локальные переменные объявляются так же, как глобальные:
Локальные переменные будут видны только в пределах этой процедуры, другим
процедурам они будут недоступны.
Программный код процедуры (тело) располагается между begin и end.
Все процедуры и функции должны быть объявлены.
Если процедура создается автоматически средой разработки, то объявление процедуры
тоже автоматически появляется там, где нужно.
Если же программист создает процедуру или функцию вручную, то он сам должен
позаботиться о ее объявлении.
В листинге 6.2 приведен пример программы, написанной на Delphi.
Обратите внимание на процедуру FormActivate и на ее объявление в классе формы.
Листинг 6.2
unit Unit"!; // наименование модуля
interface
uses // подключаемые библиотеки
Windows,Messages,SysUtiIs, Classes,Graphics,
Controls, Forms, Dialogs;
type // объявление типов
TForml = class(TForm) // класс формы
// объявление процедуры
procedure FormActivate(Sender: TObject);
private // здесь объявляются переменные,
// видимые только в этом модуле
{ Private declarations }
publ ic // здесь указываются переменные,
// видимые и в других модулях
{ Publ ic declarations }
end; // конец объявления типов
var
Form"!: TForml; // форма типа TForml
implementat ion
{$R *.DFM)
procedure TForml. FormActivate(Sender: TObject); //процедура
var
total: Integer;
begin
// здесь записывается программный код процедуры
end;
end. // конец программы
Объявление процедуры или функции можно вписывать в класс формы вручную
или заставить сделать это Delphi.
Во втором случае правой кнопкой мыши нужно щелкнуть на заголовке написанной
вами процедуры и в появившемся меню выбрать пункт Complete class at cursor.
Тогда объявление процедуры автоматически появится в классе формы (в разделе
private). Вписывание объявления процедуры вручную ничем не хуже, хотя, может быть, не так удобно.
