t_id
1321
t_adddate
2004/07/17
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/17 23:23:00 25 | 2024/05/18 00:29:00 32 | |
i386 | 22 | 44.0 | 2024/05/17 23:23:00 25 | 2024/05/18 00:21:00 24 | |
sparc | 19 | 38.0 | 2024/05/17 23:27:00 38 | 2024/05/17 23:55:00 41 | |
x86_64 | 9 | 18.0 | 2024/05/18 00:05:00 29 | 2024/05/18 00:29:00 32 | |
linux | 7 | 14.0 | 2024/05/17 23:33:00 28 | 2024/05/18 00:20:00 23 | |
win32 | 4 | 8.0 | 2024/05/17 23:27:00 24 | 2024/05/18 00:21:00 24 | |
solaris | 39 | 78.0 | 2024/05/17 23:23:00 25 | 2024/05/18 00:29:00 32 | |
3.3.1 | 27 | 54.0 | 2024/05/17 23:23:00 25 | 2024/05/18 00:21:00 24 | |
3.2.3 | 23 | 46.0 | 2024/05/17 23:27:00 38 | 2024/05/18 00:29:00 32 |
{$mode objfpc}{$H+}{$r+} uses Classes, SysUtils; type TMyEvent = class(TObject) public procedure SaveToStream(aStream: TStream); virtual; abstract; end; TMyClass = class private function GetEvent(aIndex: integer): TMyEvent; function GetEventCount: integer; public property EventCount: integer read GetEventCount; property Events[aIndex: integer]: TMyEvent read GetEvent; procedure SaveToStream(aDest: TStream); end; { TMyClass } function TMyClass.GetEvent(aIndex: integer): TMyEvent; begin Result:=nil; end; function TMyClass.GetEventCount: integer; begin Result:=0; end; procedure TMyClass.SaveToStream(aDest: TStream); var cEvent: Integer; eCnt: Integer; begin eCnt:=EventCount; aDest.Write(eCnt, sizeof(eCnt)); for cEvent := 0 to eCnt -1 do Events[cEvent].SaveToStream(aDest); end; begin end.