Supports ohne out Parameter

[Uwe Raabe]

Zitat von Thom:

Ich verstehe nicht, weshalb Dir alle raten, nicht TInterfacedObject zu verwenden... Ändere einfach

Delphi-Quellcode:

var
  a: TFirstSecond;

in

Delphi-Quellcode:

var
  a: IInterface;

und alles funktioniert.

Dieses Vorgehen ist aber nicht in jedem Fall anwendbar. Man muss sich schon entscheiden, ob man nur mit Interface-Referenzen und Referenzzählung arbeiten will, oder ob man ohne Referenzzählung selber die Objekt-Instanzen verwalten will. Für beide Vorgehen gibt es je nach Anwendungsfall gute Gründe. Man muss dann nur die passende Elternklasse verwenden.