加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

delphi – 使用具有通用接口类型的Supports()函数

发布时间:2020-12-15 10:12:40 所属栏目:大数据 来源:网络整理
导读:我刚刚尝试在Delphi 2009中首次使用泛型,并且对如何使用泛型类型作为Supports函数的输入感到困惑,该函数用于查看对象是否实现了给定的接口.我已经创建了一个小样本来说明问题. 给出以下类型和效用函数: IMyInterface = interface['{60F37191-5B95-45BC-8C14
我刚刚尝试在Delphi 2009中首次使用泛型,并且对如何使用泛型类型作为Supports函数的输入感到困惑,该函数用于查看对象是否实现了给定的接口.我已经创建了一个小样本来说明问题.

给出以下类型和效用函数:

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;

和以下代码段:

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

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

我希望没有问题,但我得到以下编译时错误:

[DCC Error] GenericExample.pas(37): E2029 ‘(‘ expected but ‘,’ found
[DCC Error] GenericExample.pas(37): E2014 Statement expected,but expression of type ‘T’ found

当用作函数的实际参数时,我不确定编译器期望我用T做什么.

我搜索了很多,并没有能够破解这一个.我的一部分怀疑如果我能理解在编译期间接口名称如何转换为IID:TGUID类型,当使用具体的接口名称时,我可以取得一些进展,但这也避开了我.

任何帮助深表感谢.

解决方法

无法保证T具有与之关联的GUID,并且语言中没有任何方法可以在类型参数上写入约束来进行保证.

编译器在符号表中查找名称,获取编译器表示接口的数据结构,并检查GUID的相应字段,将接口名称转换为GUID.但泛型不像C模板;它们需要进行编译和类型检查,并且已知可用于任何有效的类型参数,这意味着在其声明中约束type参数.

您可以使用RTTI(首先检查T确实代表一个接口)获取GUID,例如GetTypeData(TypeInfo(T))^.Guid并将GUID传递给支持.

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读