t_id
1015
t_adddate
2003/10/10
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/21 01:52:00 20 | 2024/05/21 02:26:00 23 | |
| i386 | 16 | 32.0 | 2024/05/21 01:52:00 20 | 2024/05/21 02:26:00 23 | |
| x86_64 | 32 | 64.0 | 2024/05/21 01:53:00 15 | 2024/05/21 02:25:00 27 | |
| aarch64 | 2 | 4.0 | 2024/05/21 02:03:00 35 | 2024/05/21 02:19:00 42 | |
| linux | 49 | 98.0 | 2024/05/21 01:52:00 20 | 2024/05/21 02:26:00 23 | |
| win32 | 1 | 2.0 | 2024/05/21 02:04:00 34 | 2024/05/21 02:04:00 34 | |
| 3.3.1 | 29 | 58.0 | 2024/05/21 01:52:00 20 | 2024/05/21 02:26:00 23 | |
| 3.2.3 | 21 | 42.0 | 2024/05/21 01:54:00 35 | 2024/05/21 02:25:00 27 |
{ Source provided for Free Pascal Bug Report 2727 }
{ Submitted by "marco (the gory bugs department)" on 2003-10-08 }
{ e-mail: }
{$mode delphi}
type
IPersistenceCapable = interface;
TPersistenceCapable = class(TInterfacedObject, IPersistenceCapable)
function nonsense:boolean;
end;
IPersistenceCapable = interface
['{A7F3DA50-93BF-4EAF-B40C-8F5020E5D890}']
function GetSelf: TObject;
property Self: TObject read GetSelf;
end;
function TPersistenceCapable.nonsense:boolean;
{this works fine if it isn't a method....}
var
lSource: IPersistenceCapable;
begin
result:=(lSource.Self is TPersistenceCapable)
end;
begin
end.