t_id
899
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/20 09:37:00 26 | 2024/05/20 22:30:00 59 | |
i386 | 14 | 28.0 | 2024/05/20 09:37:00 26 | 2024/05/20 17:30:00 45 | |
arm | 1 | 2.0 | 2024/05/20 22:30:00 59 | 2024/05/20 22:30:00 59 | |
x86_64 | 13 | 26.0 | 2024/05/20 13:38:00 23 | 2024/05/20 19:35:00 26 | |
mips | 3 | 6.0 | 2024/05/20 10:56:00 35 | 2024/05/20 14:28:00 35 | |
aarch64 | 19 | 38.0 | 2024/05/20 10:24:00 38 | 2024/05/20 22:24:00 44 | |
linux | 11 | 22.0 | 2024/05/20 10:24:00 38 | 2024/05/20 22:30:00 59 | |
win32 | 1 | 2.0 | 2024/05/20 09:37:00 26 | 2024/05/20 09:37:00 26 | |
go32v2 | 1 | 2.0 | 2024/05/20 10:22:00 73 | 2024/05/20 10:22:00 73 | |
solaris | 12 | 24.0 | 2024/05/20 16:23:00 44 | 2024/05/20 17:30:00 45 | |
darwin | 12 | 24.0 | 2024/05/20 16:20:00 32 | 2024/05/20 17:50:00 56 | |
win64 | 13 | 26.0 | 2024/05/20 13:38:00 23 | 2024/05/20 19:35:00 26 | |
3.3.1 | 10 | 20.0 | 2024/05/20 10:22:00 73 | 2024/05/20 19:35:00 26 | |
3.2.2 | 12 | 24.0 | 2024/05/20 16:23:00 44 | 2024/05/20 17:30:00 45 | |
3.2.3 | 28 | 56.0 | 2024/05/20 09:37:00 26 | 2024/05/20 22:30:00 59 |
{$mode tp} type ProcType = procedure(s:string); GetProcType = function(s:string;var Proc:ProcType):boolean; var ProcVar : ProcType; GetProcVar : GetProcType; procedure Default(s:string); begin writeln('This is Default:',s); end; procedure Proc1(s:string); begin writeln('This is Proc1:',s); end; procedure Proc2(s:string); begin writeln('This is Proc2:',s); end; function GetProc(s:string;var ProcVar:ProcType):boolean; begin if s='Proc1' then begin ProcVar:=Proc1; GetProc:=true; end else if s='Proc2' then begin ProcVar:=Proc2; GetProc:=true; end else begin ProcVar:=Default; GetProc:=false; end; end; begin GetProcVar:=GetProc; if GetProcVar('Proc1',ProcVar) then ProcVar('ok') else halt(1); if GetProcVar('Proc2',ProcVar) then ProcVar('ok') else halt(1); if GetProcVar('xyz',ProcVar) then halt(1) else writeln('ok'); end.