abgeleitete Interfaces

[Bergmann89]

Hey,

ich hab ein seltsames Problem:

Code: Alles auswählen

IBase = interface(IUnknown)
['{DB0F2C9A-7138-4735-99F8-AE37C2C87347}']
  procedure Fuu;
end;
 
IChild = interface(IBase)
['{B1344192-2CB4-4151-8936-64BDCD939F51}']
  procedure Bar;
end;
 
TChild = class(TObject, IChild)
  procedure Fuu;
  procedure Bar;
end;
 
var c: TChild;
 
Supports(c, IBase); //ergibt false
Supports(c, IChild); //ergibt true

Das sollte doch normalerweiße funktionieren, oder? Wenn ich c einfach hart in IBase caste, dann fliegt mir mein Programm um die Ohren

MfG Bergmann.

[theo]

Code: Alles auswählen

TChild = class(TInterfacedObject,IChild,IBase)    

http://www.delphipraxis.net/153524-inte ... tance.html