Ủy quyền giao diện trên Win64

Question

Documentation cho biết rằng giao diện giao diện chỉ khả dụng cho Win32. Hiện tại tôi không thể kiểm tra nó, là nó lỗi tài liệu hoặc giao diện đoàn được ngưng trong trình biên dịch 64-bit?

Answer 1

Đó là lỗi tài liệu. Các tiếng bíp sau đây trong Win64:

program Win64delegatedInterfaces; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils; 

type 
    IIntf = interface 
    procedure Foo; 
    end; 

    TMyClass = class(TObject, IIntf) 
    FIntf: IIntf; 
    property Intf: IIntf read FIntf implements IIntf; 
    end; 

    TMyOtherClass = class(TInterfacedObject, IIntf) 
    procedure Foo; 
    end; 

var 
    MyClass: TMyClass; 
    Intf: IIntf; 

procedure TMyOtherClass.Foo; 
begin 
    Beep; 
end; 

begin 
    MyClass := TMyClass.Create; 
    MyClass.FIntf := TMyOtherClass.Create; 
    Intf := MyClass; 
    Intf.Foo; 
end.