Delphi通用约束问题

Delphi 2009编译器在泛型实现中有一些非常严重的缺陷。它并没有像它应该的那样理解约束的含义(Barry Kelly在SO的其他地方承认了这一点;我不记得确切的位置了),跨单元泛型可能会导致非常奇怪的问题。最好的办法是根据具体情况处理这个问题:如果你的代码编译成功,就使用它。如果没有,就回到非泛型实现,直到它们得到修复。希望我们能在不久的将来看到一个修复泛型(和generics.Collections单元)的更新。

最后,我用以下方法破解了它

class function TtiGenericObjectList<T>.GenericAsObject(const Value): TObject;
begin
  Result := TObject(Value);
end;

class function TtiGenericObjectList<T>.ObjectAsGeneric(const Value): T;
begin
  Result := T(Value);
end;

function TtiGenericObjectList<T>.Add(const AObject: T): integer;
var obj: TtiObject;
begin
  obj:= TtiObject(GenericAsObject(AObject));
  result:= inherited Add(obj);
  // replaces the following which gets overload errors
//   result:= inherited Add(TtiObject(AObject));
end;

和

function TtiGenericObjectList<T>.GetItems(i: integer): T;
var obj: TtiObject;
begin
  obj:= inherited GetItems(i);
  result:= ObjectAsGeneric(obj);
  // replaces the following which gets "Invalid typecast" errors
  // result:= inherited Add(AObject);
end;

我会稍微清理一下,然后使用它们,直到编译器修复。

我最近使用D2010解决了一个类似的问题,这是我想出的代码。

type
  TGenericList<T: TtiObject> = class(TtiObjectList)
  protected
    function GetItems(AIndex: integer): T; reintroduce;
    procedure SetItems(AIndex: integer; const AValue: T); reintroduce;
  public
    property Items[i:integer]: T read GetItems write SetItems; default;
    function Add(const AObject: T): integer; reintroduce;
  end;

implementation

{ TGenericList<T> }

function TGenericList<T>.Add(const AObject: T): integer;
begin
  Result := inherited Add(TtiObject(AObject));
end;

function TGenericList<T>.GetItems(AIndex: integer): T;
begin
  Result := T(inherited GetItems(AIndex));
end;

procedure TGenericList<T>.SetItems(AIndex: integer; const AValue: T);
begin
  inherited SetItems(AIndex, AValue);
end;

我发现泛型有一些小问题,这对于这样一个新特性来说并不奇怪。而且你正试图混淆编译器;-).

不幸的是,我手头没有2009年,所以我不能测试,但我有一些建议:

您是否已查找更新(并安装了更新)?

您是否尝试过使用as和is运算符:

obj:= AObject as TtiObject;

TtiGenericList<T: TObject> = class(TtiObjectList)  
protected  
  function GetItems(i:integer): T; reintroduce;  
  procedure SetItems(i:integer; const Value: T); reintroduce;  
public  
  function Add(const AObject: T): integer; reintroduce;  
  property Items[i:integer]: T read GetItems write SetItems; default;  
end;

(我来到这里是因为一个类似的问题,但在确定问题的同时,我得到了一个不同的解决方案,尽管使用了更新的(XE)Delphi):

对象 T型。