Процедуры

Процедура — это обыкновенная подпрограмма, которая не возвращает никакого значения под своим именем.

Описание процедуры также состоит из двух частей: заголовка и блока. Заголовок процедуры имеет следующий вид:

Procedure имя процедуры (параметры);


Имя процедуры должно быть уникальным и должно однозначно идентифицировать процедуру.

Параметры процедуры являются необязательными и служат для передачи каких-либо данных из основной программы в процедуру.

Блок процедуры содержит операторы и команды языка Object Pascal. Блок процедуры может быть пустым.

Вызов процедуры происходит по ее имени и списку аргументов, заключенных в круглые скобки.

Рассмотрим пример описания процедуры. Создадим процедуру, которая преобразует целое число в строку (листинг 4.2). Для этого в процедуру потребуется передавать два параметра — целое число и строку, в которую будет записан результат.

Листинг 4.2. Описание процедуры NumString

procedure NumString(N:  Integer; var S: string);
var
      V: Integer; 
begin
      V := Abs(N) ;
      S : = " ;
      repeat
      S := Chr(V mod 10 + Ord('0')) + S;
      V := V div 10;
  until V = 0;
  if N < 0 then S := '-' + S; 
end;

Для вызова данной процедуры можно в любом месте основной программы поступить следующим образом:

NumString(17, MyString);


В результате выполнения данного оператора, который называется оператором вызова процедуры, в строковую переменную с именем MyString будет помещено значение "17".