blob: a26ecf98bbc7d5ff7e7a9402ef35a7864882f657 (
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
{$ifdef fpc}{$mode objfpc}{$endif}
uses SysUtils;
{$R+}
procedure x(arr : array of byte);
begin
try
if arr[12] <> $55 then
WriteLn('Error! No Rangecheck error detected');
Halt(1);
except
on e : exception do
begin
Writeln(e.message);
end;
end;
end;
procedure varx(arr : array of byte);
var
i : byte;
begin
try
i:=12;
if arr[i] <> $55 then
WriteLn('Error! No Rangecheck error detected');
Halt(1);
except
on e : exception do
begin
Writeln(e.message);
end;
end;
end;
procedure x2(arr : array of byte);
begin
if arr[12] <> $55 then
begin
WriteLn('Error! No Rangecheck error detected');
Halt(1);
end;
end;
procedure varx2(arr : array of byte);
var
i : byte;
begin
i:=12;
if arr[12] <> $55 then
begin
WriteLn('Error! No Rangecheck error detected');
Halt(1);
end;
end;
var
arr : array[1..12] of byte;
arr2 : array[1..13] of byte;
arr3 : array[-1..11] of byte;
begin
arr[12] := $55;
x(arr);
varx(arr);
arr2[13]:=$55;
x2(arr2);
varx2(arr2);
arr3[11]:=$55;
x2(arr3);
varx2(arr3);
end.
|
