1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
uses
{$ifdef unix}
cwstring,
{$endif}
variants,sysutils;
var a:variant;
x,y: array of byte;
begin
a:=VarArrayCreate([0,2,0,2],varVariant);
if VarArrayDimCount(a)<>2 then
halt(1);
VarArrayPut(a,'b',[1,1]);
if String(VarArrayGet(a,[1,1]))<>'b' then
halt(2);
a[2,1]:='asdf';
if VarArrayGet(a,[2,1])<>'asdf' then
halt(2);
setlength(x,3);
x[0]:=77;
x[1]:=88;
x[2]:=99;
a[2,2]:=x;
y:=VarArrayGet(a,[2,2]);
if (y[0]<>x[0]) or
(y[1]<>x[1]) or
(y[2]<>x[2]) then
halt(3);
a:='';
writeln('ok');
end.
|
