t_id
1501
t_adddate
2005/03/05
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 |
{ Source provided for Free Pascal Bug Report 3589 } { Submitted by "Michalis Kamburelis" on 2005-01-23 } { e-mail: michalis@camelot.homedns.org } {$ifdef FPC} {$mode objfpc} {$endif} {$assertions on} uses Classes; type TBoxedInt = class(TCollectionItem) public Value: Integer; end; var C: TCollection; begin C := TCollection.Create(TBoxedInt); try TBoxedInt(C.Add).Value := 1; TBoxedInt(C.Add).Value := 2; TBoxedInt(C.Add).Value := 3; TBoxedInt(C.Insert(0)).Value := 4; { 4 1 2 3 } TBoxedInt(C.Insert(3)).Value := 5; { 4 1 2 5 3 } TBoxedInt(C.Insert(5)).Value := 6; { 4 1 2 5 3 6 } { Writeln( TBoxedInt(C.Items[0]).Value, ' ', TBoxedInt(C.Items[1]).Value, ' ', TBoxedInt(C.Items[2]).Value, ' ', TBoxedInt(C.Items[3]).Value, ' ', TBoxedInt(C.Items[4]).Value, ' ', TBoxedInt(C.Items[5]).Value);} Assert( (TBoxedInt(C.Items[0]).Value = 4) and (TBoxedInt(C.Items[1]).Value = 1) and (TBoxedInt(C.Items[2]).Value = 2) and (TBoxedInt(C.Items[3]).Value = 5) and (TBoxedInt(C.Items[4]).Value = 3) and (TBoxedInt(C.Items[5]).Value = 6)); finally C.Free end; end.