25 lines
313 B
ObjectPascal
25 lines
313 B
ObjectPascal
|
type
|
|||
|
|
t1 = class
|
|||
|
|
pf: procedure;
|
|||
|
|
|
|||
|
|
procedure p1;
|
|||
|
|
begin
|
|||
|
|
var obj: byte;
|
|||
|
|
|
|||
|
|
var lp2: procedure := ()->
|
|||
|
|
begin
|
|||
|
|
obj := obj;
|
|||
|
|
pf := ()->
|
|||
|
|
begin
|
|||
|
|
Print(1);
|
|||
|
|
end;
|
|||
|
|
pf;
|
|||
|
|
end;
|
|||
|
|
lp2;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
t1.Create.p1;
|
|||
|
|
end.
|