blob: e392e4cc7c591831cd670d00b83f08d0b20cf6f1 (
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
|
{$ifdef fpc}{$mode objfpc}{$h+}{$endif}
uses
Variants, SysUtils;
var
v: Variant;
code: integer;
begin
code := 0;
v := 10;
try
writeln(Format('%s', [v]));
except
ShowException(exceptObject, exceptAddr);
code := code or 1;
end;
v := 'foo';
try
writeln(Format('%s', [v]));
except
ShowException(exceptObject, exceptAddr);
code := code or 2;
end;
v := 1.5;
try
writeln(Format('%s', [v]));
except
ShowException(exceptObject, exceptAddr);
code := code or 4;
end;
Halt(code);
end.
|
