Klasse implementiert ein Interface weniger, höherer Speicherverbrauch

[Mavarik]

Zitat von rabatscher:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var obj1 : TObj1;
    obj2 : TObj2;
begin
     obj1 := TObj1.Create;
     obj1.Test1;
     obj1.Free;

     obj2 := TObj2.Create;
     obj2.Test1;
     obj2.Free;
end;

Ich hoffe das ist nur ein schnell runter getipptes Demo und nicht so wie Du TinterfacedObjects in Deinem Programm verwendest…

Obj1 und Obj2 müssen vom Interface type sein und natürlich nicht mit free freigegeben werden.

Mavarik