Zobrazení zdroje stránky Procedurální typové konstanty

Procedurální typové konstanty může obsahovat pouze identifikátor procedury nebo funkce, které je s typem konstanty kompatibilní vzhledem k přiřazení.

;Příklad
 type
   ErrorProc = procedure(ErrorCode: Integer);
 procedure DefaultError(ErrorCode: Integer); far;
 begin
   WriteLn('Error ', ErrorCode, '.');
 end;
 const
   ErrorHandler: ErrorProc = DefaultError;

[[Category:Typové konstanty]]