20 lines
190 B
ObjectPascal
20 lines
190 B
ObjectPascal
unit u_methodcall1;
|
|
|
|
uses u_methodcall2;
|
|
|
|
var
|
|
i: integer;
|
|
|
|
procedure p1;
|
|
begin
|
|
var a: t2 := new t2;
|
|
var p := procedure->
|
|
begin
|
|
a.p1;
|
|
Inc(i);
|
|
end;
|
|
p;
|
|
end;
|
|
|
|
begin
|
|
end. |