Константы процедурного типа
Константы процедурного типа должны определять идентификатор процедуры или функции, совместимый по присваиванию с типом конс- танты.
------------------ процедурная константа ------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;
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий