t_id
810
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
459439747 | 937501 | True | False | Successfully run |
Record count: 1
{$mode delphi} program test; type booleanVoidFun = function : boolean; boolean1IntFun = function(i : integer) : boolean; var af : array[1..10] of booleanVoidFun; ag : array[1..10] of boolean1IntFun; b : boolean; i : integer; function alwaysTrue : boolean; begin alwaysTrue := true; end; function maybeTrue(q : integer) : boolean; begin maybeTrue := (q = 0); end; begin for i := 1 to 10 do begin af[i] := alwaysTrue; ag[i] := maybeTrue; end; b := af[1]; { can be fixed by using b := af[1]() } b := ag[1](0); end.