Danke, der Fehler war, dass ich das Interface nicht in der Class angegeben haben. Nun funktioniert's.
Danke für Deine Hilfe
Tom
Zitat von
shmia:
Zitat von
tgoessi:
Das Funktioniert bei mir nicht richtig. Ich erhalte einen EIntfCastError, Interface not supported.
Eine
GUID habe ich allerdings beim Private-Interface angegeben.
Fehlt da noch etwas. Die Datentypen sollte ja kein Problem sein.
Es muss natürlich ein neue, noch nicht verwendete
GUID sein.
(Shift+Strg+G innerhalb der Delphi-
IDE drücken.)
Ausserdem muss das Interface auch implementiert werden:
TMyCollection = class(TAutoIntfObject, IMyCollection, IMyCollectionSetup)