blob: a530a3e8a21cddbe4b335eee12487d430e90e379 (
plain)
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
|
{$mode objfpc}
program VariantTest;
uses variants;
var
i: integer;
laenge: integer;
integerbuffer: integer;
integerarray: variant;
singlebuffer: single;
singlearray: variant;
error : boolean;
begin
laenge := 20;
integerarray := VarArrayCreate([1,laenge],varInteger);
singlearray := VarArrayCreate([1,laenge],varSingle);
for i := 1 to laenge do
begin
integerbuffer := i;
singlebuffer := i;
integerarray[i] := integerbuffer;
singlearray[i] := singlebuffer;
end;
writeln ('** Program VariantTest **');
writeln;
writeln ('integerarray singlearray');
writeln;
error:=false;
for i := 1 to laenge do
begin
integerbuffer := integerarray[i];
singlebuffer := singlearray[i];
writeln (integerbuffer:12, singlebuffer:12:7);
error:=error or (integerbuffer<>singlebuffer);
end;
if error then
halt(1)
else
writeln('ok');
end.
|
