Руководство по языку B.Pascal 7

       

Константы процедурного типа


Константы процедурного типа должны определять идентификатор процедуры или функции, совместимый по присваиванию с типом конс- танты.

------------------ процедурная константа ------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;



Содержание раздела