[Interfaces]: Anwendungsbeispiel

[HeikoDD]

Delphi-Quellcode:

Type
  ixyz = interface
    [guid]
    procedure tutwat; stdcall;
  end;

TXYZ = Class(TInterfacedObject, IXYZ)
  privat
  protected
  public
    procedure tutwat; stdcall;
end;

Var tmp : ixyz;

ixyz = TXYZ.Create();
ixyz.tutwat;

ich hoffe das beantworte die eigentliche frage ein wenig