t_id
1015
t_adddate
2003/10/10
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022449884 | 1027334 | True | False | Successfully run |
Record count: 1
{ 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.