Delphi-Quellcode:
var
t : TTest; // <--- Mach hieraus mal ein ITest
begin
t := TTest.Create;
try
t.DoTest;
finally
t.Free; // Wirf das komplett raus
end;
end.
Interface Instanzen arbeiten mit einem Referenzzähler. Das was du jetzt hier gerade hingeschrieben hast macht so leider keinen Sinn.
Dann musst du aus
TTest = class (TObject, ITest)
folgendes machen:
TTest = class (TInterfacedObject, ITest)
Also von
TInterfacedObject
ableiten.
EDIT: RedBox
