Sử dụng chức năng Hỗ trợ() với kiểu giao diện chung

Question

Tôi vừa thử sử dụng Generics đầu tiên trong Delphi 2009 và bị lúng túng về cách sử dụng kiểu chung làm đầu vào cho hàm Hỗ trợ được sử dụng để xem một đối tượng có thực hiện hay không giao diện. Tôi đã tạo một mẫu nhỏ minh họa vấn đề.

Với chủng loại và hữu ích sau đây chức năng:

IMyInterface = interface 
['{60F37191-5B95-45BC-8C14-76633826889E}'] 
end; 

TMyObject = class(TInterfacedObject, IMyInterface) 
end; 

class function TFunctions.GetInterface<T>(myObject: TObject): T; 
var 
    specificInterface: T; 
begin 
    // This would compile, but looses the generic capability 
    //Supports(myObject, IMyInterface, specificInterface); 

    // This results in compile errors 
    Supports(myObject, T, specificInterface); 

    result := specificInterface; 
end; 

và đoạn mã sau:

class procedure TFunctions.Test; 
var 
    myObject: TMyObject; 
    myInterface: IMyInterface; 
begin 
    myObject := TMyObject.Create; 

    myInterface := GetInterface<IMyInterface>(myObject); 
end; 

tôi mong chờ không có vấn đề nhưng tôi nhận được lỗi thời gian biên dịch sau:

[Lỗi DCC] GenericExample.pas (37): E2029 '(' được mong đợi nhưng ',' tìm thấy [Lỗi DCC] Tạo icExample.pas (37): Dự báo E2014, nhưng biểu thức loại 'T' được tìm thấy

Tôi không chắc chắn trình biên dịch mong đợi tôi làm gì với T khi được sử dụng làm đối số thực tế cho hàm .

Tôi đã tìm kiếm xung quanh một chút và không thể giải quyết vấn đề này. Một phần của tôi nghi ngờ rằng nếu tôi có thể hiểu làm thế nào một tên giao diện được chuyển đổi sang IID: TGUID loại trong quá trình biên dịch, khi sử dụng một tên giao diện cụ thể, tôi có thể thực hiện một số headway, nhưng điều đó đã trốn tôi cũng.

Bất kỳ trợ giúp nào được đánh giá cao.

Answer 1

Không có gì đảm bảo rằng T có GUID được liên kết với nó, và không có phương tiện trong ngôn ngữ để viết một ràng buộc về tham số kiểu để đảm bảo.

Tên giao diện được chuyển thành GUID bởi trình biên dịch tìm kiếm tên trong bảng biểu tượng, cấu trúc dữ liệu của trình biên dịch đại diện cho giao diện và kiểm tra trường tương ứng cho GUID. Nhưng generics không giống như các mẫu C++; chúng cần được biên dịch và kiểm tra kiểu và được biết là hoạt động với bất kỳ tham số kiểu hợp lệ nào, và điều đó có nghĩa là ràng buộc tham số kiểu trong khai báo của nó.

Bạn có thể nhận GUID bằng RTTI (lần đầu tiên kiểm tra xem T có thực sự đại diện cho giao diện) với một cái gì đó như GetTypeData(TypeInfo(T))^.Guid và chuyển GUID đến Supports theo cách đó hay không.

Answer 2

Tại sao bạn thậm chí còn làm phiền?

Để sử dụng TFunctions.GetInterface này, bạn cần:

• một giao diện
• một tham chiếu đối tượng

Nếu bạn có những, sau đó bạn có thể chỉ cần gọi Hỗ trợ() trực tiếp:

intf := TFunctions.GetInterface<IMyInterface>(myObject); 

là chính xác equivale nt tới:

Supports(IMyInterface, myObject, intf); 

Sử dụng generics ở đây là phí thời gian và công sức và thực sự đặt câu hỏi "Tại sao phải làm?".

Nó chỉ là làm cho những điều khó đọc hơn (như là như vậy thường là trường hợp với generics) và là cồng kềnh hơn để sử dụng.

Hỗ trợ() trả về một boolean thuận tiện để chỉ thành công/thất bại, mà bạn phải kiểm tra cho riêng sử dụng wrapper của bạn:

intf := TFunctions.GetInterface<IMyInterface>(myObject); 
    if Assigned(intf) then 
    // ... 

so:

if Supports(IMyInterface, myObject, intf) then 
    // We can use intf 

Khi tạo hàm bao quanh chức năng nó thường là trường hợp kết quả là một sự cải thiện trong tính ổn định hoặc khả năng sử dụng.

imho điều này không thành công trên cả hai tính và bạn chỉ nên gắn bó với chức năng Hỗ trợ().