blob: 2a6451bd9289326f6c18e755c7213bf730212926 (
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
|
{$mode objfpc}
var
v : tvarrec;
error : boolean;
procedure p(a:array of const);
var
i : integer;
begin
for i:=low(a) to high(a) do
with a[i] do
begin
case vtype of
vtInteger :
begin
writeln('Integer: ',VInteger);
if VInteger=1000 then
Error:=false;
end;
else
writeln('Error!');
end;
end;
end;
begin
error:=true;
v.vtype:=vtInteger;
v.VInteger:=1000;
p(v);
if Error then
Halt(1);
end.
|
