mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 22:00:43 +02:00
35 lines
666 B
ObjectPascal
35 lines
666 B
ObjectPascal
{ 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.
|