在Delphi 2010中,我定义了一个通用的TInterfaceList,如下所示:
type TInterfaceList<I: IInterface> = class(TInterfaceList) function GetI(index: Integer): I; procedure PutI(index: Integer; const Item: I); property Items[index: Integer]: I read GetI write PutI; default; end; implementation function TInterfaceList<I>.GetI(index: Integer): I; begin result := I(inherited Get(Index)); end; procedure TInterfaceList<I>.PutI(index: Integer; const Item: I); begin inherited Add(Item); end;
我还没有遇到任何问题,但这样做有什么本质上的风险吗?是否可以向其中添加一个枚举器以允许..in循环来处理它?如果它没有任何问题,我想知道为什么在RTL中还没有定义类似的东西.
解决方法
原文地址:https://www.jb51.cc/delphi/101912.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。