E2003 Undefinierter Bezeichner: 'QueryInterface'

**MacGuyver**

Moin Leute

Irgendwie bekomme ich das mit dem Interface nicht hin. Ich habe mir etliche Beispiele angeschaut und verstehe nicht, was ich falsch mache:

zusammenfalten · markieren

Delphi-Quellcode:

			program TestInterface;

{$APPTYPE CONSOLE}

uses

  SysUtils;

type

  ITest = interface

    ['{A6C342E9-61FE-404C-BAB2-7618E6387E5F}']

    procedure DoTest;

  end;

  TTest = class (TObject, ITest)

    procedure DoTest;

  end;

{ TTest }

procedure TTest.DoTest;

begin

end;

var

  t : TTest;

begin

  t := TTest.Create;

  try

    t.DoTest;

  finally

    t.Free;

  end;

end.

Wieso wirft er "E2003"?

E2003 Undefinierter Bezeichner: 'QueryInterface'

E2003 Undefinierter Bezeichner: 'QueryInterface'

Forumregeln