t_id
719
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949663491 | 1015615 | False | False | Failed to run |
Record count: 1
An unhandled exception occurred at $00000000: EListError: List index (0) out of bounds $00000000 ##WASI-EXITCODE: 217 -> 125##>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
{$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.