blob: 87f88ad64db42305c5bcbe2f45d2d9aa68cf99b4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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.
|
