Константы процедурного типа
Главная / Справочник / Синтаксис языка / Константы
Процедурная константа должна содержать идентификатор процедуры или функции, который совместим с типом константы.
Пример
Type ErrorProc = Procedure(ErrorCode : Integer); Procedure DefaultError(ErrorCode : Integer); Far; Begin WriteLn('Ошибка ', ErrorCode, '.'); End; Const ErrorHandler : ErrorProc = DefaultError;