1 578
editací
Změny
Vytvorená stránka „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řík...“
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;
;Viz také
:[[Typové konstanty]]
;Příklad
type
ErrorProc = procedure(ErrorCode: Integer);
procedure DefaultError(ErrorCode: Integer); far;
begin
WriteLn('Error ', ErrorCode, '.');
end;
const
ErrorHandler: ErrorProc = DefaultError;
;Viz také
:[[Typové konstanty]]