mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-06 07:30:53 +01:00
31 lines
446 B
ObjectPascal
31 lines
446 B
ObjectPascal
{$mode objfpc}
|
|
|
|
program testlist;
|
|
uses
|
|
Sysutils,
|
|
Classes;
|
|
var
|
|
l: TList;
|
|
IsCaught: boolean;
|
|
|
|
|
|
|
|
begin
|
|
L:= TList.Create;
|
|
IsCaught:=false;
|
|
Try
|
|
WriteLn(LongInt(L[0]));{L[0] not exist, ==> access violation}
|
|
L.Free;
|
|
Except
|
|
on eListError do
|
|
begin
|
|
Writeln('Exception caught');
|
|
IsCaught:=true;
|
|
end;
|
|
end;
|
|
If not IsCaught then
|
|
begin
|
|
Writeln('Error in TList');
|
|
Halt(1);
|
|
end;
|
|
end. |