14 lines
255 B
ObjectPascal
14 lines
255 B
ObjectPascal
var i: integer := 0;
|
||
|
||
// Вместо IntRange - любой тип НЕ из .dll
|
||
// Обязательно params
|
||
procedure p1(params a: array of IntRange);
|
||
begin
|
||
i := a[0].High;
|
||
end;
|
||
|
||
begin
|
||
p1(Lst&<IntRange>(1..3).ToArray);
|
||
assert(i = 3);
|
||
end.
|