21 lines
518 B
ObjectPascal
21 lines
518 B
ObjectPascal
|
//!Несколько подпрограмм proc1 могут быть вызваны
|
|||
|
|
type
|
|||
|
|
c1 = class
|
|||
|
|
// обязательно метод. с подпрограммой не воспроизводится
|
|||
|
|
procedure method1(act: System.Action);
|
|||
|
|
begin end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure proc1(par1: System.Action<integer>); begin end;
|
|||
|
|
procedure proc1(par1: System.Action<real>); begin end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var var1:= new c1;
|
|||
|
|
|
|||
|
|
var1.method1(
|
|||
|
|
()-> begin
|
|||
|
|
proc1(par1-> begin end);
|
|||
|
|
end
|
|||
|
|
);
|
|||
|
|
|
|||
|
|
end.
|