t_id
810
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
| Result type | Cat. | Count | Percentage | First date | Last Date |
| Successfully run | 50 | 100.0 | 2024/05/16 22:26:00 31 | 2024/05/17 00:51:00 23 | |
| i386 | 20 | 40.0 | 2024/05/16 22:58:00 34 | 2024/05/17 00:45:00 0 | |
| sparc | 18 | 36.0 | 2024/05/16 23:24:00 38 | 2024/05/16 23:55:00 41 | |
| x86_64 | 11 | 22.0 | 2024/05/16 22:26:00 31 | 2024/05/17 00:51:00 23 | |
| aarch64 | 1 | 2.0 | 2024/05/17 00:12:00 32 | 2024/05/17 00:12:00 32 | |
| linux | 6 | 12.0 | 2024/05/16 23:34:00 28 | 2024/05/17 00:45:00 0 | |
| win32 | 3 | 6.0 | 2024/05/16 22:58:00 34 | 2024/05/16 23:57:00 23 | |
| solaris | 39 | 78.0 | 2024/05/16 22:26:00 31 | 2024/05/16 23:55:00 41 | |
| win64 | 2 | 4.0 | 2024/05/17 00:25:00 23 | 2024/05/17 00:51:00 23 | |
| 3.3.1 | 27 | 54.0 | 2024/05/16 22:58:00 34 | 2024/05/17 00:12:00 32 | |
| 3.2.3 | 23 | 46.0 | 2024/05/16 22:26:00 31 | 2024/05/17 00:51:00 23 |
{$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.