13 lines
169 B
ObjectPascal
13 lines
169 B
ObjectPascal
unit u_params2;
|
|
procedure Test(params a : array of ^integer);
|
|
begin
|
|
assert(a[0]^=1);
|
|
assert(a[1]^=2);
|
|
end;
|
|
|
|
var i,j : integer;
|
|
|
|
begin
|
|
i := 1; j := 2;
|
|
Test(@i,@j);
|
|
end. |