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