这看起来相当简单,也许我只是缺少一些语法粘合…这是我的简单泛型(Delphi XE3)示例:
unit Unit1; interface uses generics.collections; type X = class public Id: Integer; end; XList<T : X> = class( TObjectList<T> ) function Find(Id: Integer) : T; end; Y = class(X) end; YList = class(XList<Y>) end; implementation { XList<T> } function XList<T>.Find(Id: Integer): T; var t: X; begin for t in Self do if t.Id = Id then Result := t; end; end.
这不会用“[dcc32错误] Unit1.pas(41)编译:E2010不兼容的类型:’Y’和’X’”.这是下线:
YList = class(XList<Y>) end;
Y来自X,为什么会出现问题?