Procedura je část programu, která vykonává specifickou akci, často v závislosti na množině parametrů.
- Syntaxe
procedure identifikátor; NEBO procedure identifikátor ( parametry );
- Popis
- Záhlaví procedury určuje identifikátor procedury a seznam formálních parametrů (jestliže nějaké jsou).
- Procedura je aktivována příkazem volání procedury.
- Za záhlavím procedury následuje blok procedury, který obsahuje:
- deklarační část lokálních objektům (konstanty, proměnné, procedury aj.)
- příkazy mezi vyhrazenými slovy a , které určují vykonávanou posloupnost příkazů při volání procedury
Pro deklaraci procedury obsluhy přerušení použijte direktivu interrupt.
Místo deklarační a příkazové části může deklarace funkce obsahovat direktivy forward, external nebo inline.
Příklad
{;Deklarace procedury }
procedure WrStr(X, Y: integer; S: string);
var
SaveX, SaveY: Integer;
begin
SaveX :=WhereX;
SaveY :=WhereY;
GotoXY(X, Y);
Write(S);
GotoXY(SaveX, SaveY);
end;
- Viz také