uTestRefProc;
interface
implementation
type
TRefProc = reference to procedure;
procedure CallVal ( ARefProc: TRefProc); begin ARefProc; end; // Overhead!
procedure CallVar (var ARefProc: TRefProc); begin ARefProc; end; // ok
procedure CallConst(const ARefProc: TRefProc); begin ARefProc; end; // ok
end.
Когда плодишь функции с конкретным параметром
Или, всегда хочешь передать функцию с заранее заданным параметром
Обсуждают сегодня