t_id
862
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/18 01:37:00 36 | 2024/05/18 02:13:00 35 | |
i386 | 19 | 38.0 | 2024/05/18 01:37:00 36 | 2024/05/18 02:10:00 30 | |
x86_64 | 29 | 58.0 | 2024/05/18 01:39:00 15 | 2024/05/18 02:13:00 35 | |
aarch64 | 2 | 4.0 | 2024/05/18 01:46:00 37 | 2024/05/18 02:03:00 34 | |
linux | 48 | 96.0 | 2024/05/18 01:37:00 36 | 2024/05/18 02:13:00 35 | |
win32 | 1 | 2.0 | 2024/05/18 02:04:00 34 | 2024/05/18 02:04:00 34 | |
go32v2 | 1 | 2.0 | 2024/05/18 01:45:00 54 | 2024/05/18 01:45:00 54 | |
3.3.1 | 30 | 60.0 | 2024/05/18 01:37:00 36 | 2024/05/18 02:11:00 26 | |
3.2.3 | 20 | 40.0 | 2024/05/18 01:37:00 47 | 2024/05/18 02:13:00 35 |
type TObj = object constructor Init0; constructor Init; procedure Show; function GetStr:string; virtual; destructor Done; end; TChild = object (TObj) function GetStr:string; virtual; end; var Err : boolean; constructor TObj.Init0; begin end; constructor TObj.Init; begin Init0; end; function TObj.GetStr:string; begin GetStr:='Bad'; Err:=true; end; procedure TObj.Show; begin writeln(GetStr); end; destructor TObj.Done; begin end; function TChild.GetStr:string; begin GetStr:='Good' end; var Obj:TChild; begin Obj.Init; Obj.Show; Obj.Done; if Err then halt(1); end.