t_id
719
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
443579076 | 934951 | True | False | Successfully run |
Record count: 1
{$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 IsCaught:=true; end; If not IsCaught then begin Writeln('Error in TList'); Halt(1); end; end.