Otevřít hlavní menu

Procedurální typové konstanty

Procedurální typové konstanty může obsahovat pouze identifikátor procedury nebo funkce, které je s typem konstanty kompatibilní vzhledem k přiřazení.

Příklad
type
  ErrorProc = procedure(ErrorCode: Integer);
procedure DefaultError(ErrorCode: Integer); far;
begin
  WriteLn('Error ', ErrorCode, '.');
end;
const
  ErrorHandler: ErrorProc = DefaultError;