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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
{$ifdef fpc}
{$mode delphi}
{$endif}
uses
variants;
type
tdynarr = array of byte;
tc = class
private
fda: tdynarr;
fva: variant;
public
property da: tdynarr read fda write fda;
property va: variant read fva write fva;
end;
var
c: tc;
v: variant;
d: tdynarr;
begin
c:=tc.create;
v:=5;
c.va:=v;
if (c.fva <> 5) then
halt(1);
v:='abc';
v:=c.va;
if (v <> 5) then
halt(2);
setlength(d,4);
d[0]:=245;
d[1]:=1;
d[2]:=38;
d[3]:=115;
c.da:=d;
if (length(c.fda)<>4) or
(c.fda[0]<>245) or
(c.fda[1]<>1) or
(c.fda[2]<>38) or
(c.fda[3]<>115) then
halt(3);
d:=nil;
d:=c.da;
c.da:=nil;
if (length(d)<>4) or
(d[0]<>245) or
(d[1]<>1) or
(d[2]<>38) or
(d[3]<>115) then
halt(4);
c.free;
end.
|
