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.
|