blob: 1b8a534803be2b6a2c6961ca376b1f99ed6ec7f7 (
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
|
program project1;
{$mode objfpc}{$H+}
uses
Classes, SysUtils;
procedure DebugLn(Args: array of const);
begin
if (high(args) <> 1) or
(args[0].vtype <> vtboolean) or
not args[0].vboolean or
(args[1].vtype <> vtboolean) or
args[1].vboolean then
halt(1);
end;
procedure DoSomething(ALeft, ATop, AWidth, AHeight : integer);
begin
DebugLn([
(1<>ALeft) or (2<>ATop),
(3<>AWidth) or (4<>AHeight)
]);
end;
begin
dosomething(1,0,3,4);
end.
|
