t_id
1539
t_adddate
2005/03/28
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
526404135 | 948345 | True | False | Successfully run |
Record count: 1
{$mode objfpc}{$H+} uses classes; type stringarty = array of string; var ar1,ar2: stringarty; begin setlength(ar1,4); ar2:= copy(ar1,1,3); if (length(ar2) <> 3) then halt(1); ar2:= copy(ar1,1,4); if (length(ar2) <> 3) then halt(2); ar2:= copy(ar1,1,5); if (length(ar2) <> 3) then halt(3); end.