E2003 Undefinierter Bezeichner: 'QueryInterface'

[Aviator]

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