mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 12:07:58 +02:00
24 lines
454 B
ObjectPascal
24 lines
454 B
ObjectPascal
uses variants;
|
|
|
|
var
|
|
v: variant;
|
|
i: longint;
|
|
begin
|
|
v:=VarArrayOf([1, True, '123']);
|
|
for i:=VarArrayLowBound(v, 1) to VarArrayHighBound(v, 1) do
|
|
Writeln(v[i]);
|
|
|
|
VarArrayRedim(v, -1);
|
|
|
|
v:=VarArrayOf([]);
|
|
if VarType(v) <> 8204 then begin
|
|
writeln('Wrong vartype: ', VarType(v));
|
|
Halt(1);
|
|
end;
|
|
|
|
if VarArrayHighBound(v, 1) <> -1 then begin
|
|
writeln('Wrong high bound: ', VarArrayHighBound(v, 1));
|
|
Halt(2);
|
|
end;
|
|
end.
|