Константы процедурного типа
Константы процедурного типа должны определять идентификатор процедуры или функции, совместимый по присваиванию с типом конс- танты.
------------------ процедурная константа ------T--->¦константа-элемент+-----------> ¦ L------------------ ^ ¦ ------------------ ¦ +--->¦константа-элемент+---+ ¦ L------------------ ¦ ¦ ---- ¦ L--------->¦nil+------------ L----
Приведем следующий пример:
type ErrorProc = procedure(ErrorCode: Integer);
procedure DefaultError(ErrorCode: Integer); far; begin WriteLn('Error ', ErrorCode, '.'); end;
const ErrorHandler: ErrorProc = DefaultError;