Hello!

Hello!

[UPDATE]

I think I know now what was going on :)

There are several parts to this story:

1) Generic interfaces with GUID
2) A specialized interface WITH a different type as parameter*
3) Other specialized interfaces

TD;LR; It's a compiler bug.

The key to understanding the issue is this:

IEntityList = interface( IBaseEntity )
['{28832807-5D4E-430B-8545-AF6244E923A0}']
procedure Load( List: TRoArray;EstateID: String );
end;

IWebEstateUserList = interface( IEntityList )
procedure Load( var List: TWebEstateUserList;EstateID: String );
end;

The second interface has a var parameter that is declared like so:

Type

TWebEstateUserList = class( TROArray )
end;

The interesting bit is that even if I remove the GUID, the problem remains.
If an implementation class is NOT provided, then the unit compiles just fine.
Another issue is the fact that one Load has a var parameter and the other does not, essentially making them overloaded (even though that was not intended).
This, by the way, is quite likely why it was complaining for a missing implementation :)

Now, just why it would be looking at the earlier class and then also processing it while clearly inside comments that is not something I can explain. But at least we now know what was going on and why it behaved like that :)

[OLD POST]
Not sure what is going on here.
Here are my interfaces:

IBaseEntity = interface
['{95AE6EE1-CDBF-4B4D-BB34-61E5FF5A10CF}']

end;

IDBEntity = interface( IBaseEntity )
['{484D50B8-CFAD-4048-8479-0D424A62E5A3}']
procedure Save( Entity: T );
procedure Load( Entity: T );
end;

IPersistenceRegistry = interface
['{E5DE87BD-6994-4D9C-ACCB-7698601C2D6B}']
procedure Register( EntityPersistence: TInterfacedClass;Entity: TClass );
function FindPersistence( Entity: TClass ) : IBaseEntity;
end;

IWebEstate = interface( IDBEntity )
['{A4A5B3D7-53D8-4923-A4E0-EEC37E3E2C15}']
procedure Save( Entity: TWebEstate );
procedure Load( Entity: TWebEstate );
end;

IWebEstateUser = interface( IDBEntity )
['{96706068-184A-4F89-8464-5BF4771C1848}']
end;

IEntityList = interface( IBaseEntity )
['{28832807-5D4E-430B-8545-AF6244E923A0}']
procedure Load( List: TRoArray;EstateID: String );
end;

IWebEstateUserList = interface( IEntityList )
procedure Load( var List: TWebEstateUserList;EstateID: String );
end;

Then I also have my class declarations (in other units):

Base:
TEntityPersistence = class(TInterfacedObject,IBaseEntity, IDBEntity)
strict protected
procedure Insert( Entity: T );virtual;abstract;
procedure Update( Entity: T );virtual;abstract;
function IdIsEmpty( Entity: T) : Boolean;virtual;abstract;
procedure Save(Entity: T); virtual; abstract;
procedure Load(Entity: T); virtual; abstract;
end;

TEntityList = class( TInterfacedObject, IBaseEntity, IEntityList )
strict protected
procedure Load( List: TRoArray;EstateID : String );virtual;abstract;
end;

Nexus Datasets:
TnxEntityPersistence = class( TEntityPersistence )
strict protected
procedure PrepareSaveParams( Entity: T;AQuery : TnxQuery );virtual;abstract;
public
procedure LoadFromDataset( Entity: T;ADataset: TnxDataset );virtual;abstract;
end;

Concrete classes:

TWebEstatePersistence = class( TnxEntityPersistence,IWebEstate )
strict protected
procedure Insert( Entity: TWebEstate );override;
procedure Update( Entity: TWebEstate );override;
function IdIsEmpty( Entity: TWebEstate) : Boolean;override;
procedure Save(Entity: TWebEstate);override;
procedure Load(Entity: TWebEstate);override;
public
procedure LoadFromDataset( Entity: TWebEstate;ADataset: TnxDataset );override;
end;

TWebEstateUserPersistence = class( TnxEntityPersistence, IWebEstateUser )
strict protected
procedure PrepareSaveParams( Entity: TWebEstateUser;AQuery: TnxQuery );override;
procedure Insert( Entity: TWebEstateUser );override;
procedure Update( Entity: TWebEstateUser );override;
function IdIsEmpty( Entity: TWebEstateUser ) : Boolean;override;
procedure Save(Entity: TWebEstateUser );override;
procedure Load(Entity: TWebEstateUser );override;

public
procedure LoadFromDataset( Entity: TWebEstateUser;ADataset: TnxDataset );override;
end;

TWebEstateUserListPersistence = class( TEntityList, IWebEstateUserList )
strict protected
procedure Load( List : TROArray;EstateID: String );overload;override;
procedure Load( var List: TWebEstateUserList );reintroduce;overload;
end;

For some reason, the compiler complains that TWebEstateUserPersistence does not implement IWebEstateUserList.Load. Now, why does he
think it should? I see no reason for that, but this
doesn't mean there isn't one :)

My Berlin isn't updated (yet).

A