mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
26 lines
392 B
ObjectPascal
26 lines
392 B
ObjectPascal
{ This test explicity generates a range check error
|
|
in Tab.Count (which is zero) -1
|
|
as upper range in set.
|
|
Thus, we need an explicit $R- }
|
|
{$R-}
|
|
program project1;
|
|
|
|
{$mode delphi}{$H+}
|
|
|
|
uses
|
|
Classes;
|
|
|
|
var
|
|
mode:integer;
|
|
tabs:TStrings;
|
|
begin
|
|
tabs:=TStringList.Create;
|
|
mode:=0;
|
|
try
|
|
if not (Mode in [0..Tabs.Count-1]) then exit;
|
|
finally
|
|
tabs.Free;
|
|
end;
|
|
end.
|
|
|