mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 08:59:32 +02:00
33 lines
512 B
ObjectPascal
33 lines
512 B
ObjectPascal
{$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.
|