delphi 如何在泛型中实现TCollection和TCollectionItem功能

我正在尝试用泛型实现TCollection和TCollectionItem功能。要解决这个问题，我们需要对TGenericCollectionItem或TGenericCollection进行正向声明。实际的（XE6） Delphi 编译器不支持使用泛型类型的正向声明。There is a hack如何进行。但是我们仍然有一个问题，即为TCollectionItem分配所有者。

TBaseElement = class // hack for forward declaration of a generic type 
  end;

  TGenericCollection<T: TBaseElement> = class(TObjectList<TBaseElement>)
  protected
    procedure Notify(const Value: TBaseElement; Action: TCollectionNotification); override;
  end;

  TGenericCollectionItem = class(TBaseElement)
  public
    Owner: TGenericCollection<TBaseElement>;
  end;

  procedure TGenericCollection<T>.Notify(
    const Value: TBaseElement; Action: TCollectionNotification);
  begin
    inherited;

    if (Action = cnAdded) then
    begin
      if (Value is TGenericCollectionItem) then
        (Value as TGenericCollectionItem).Owner := Self;  //here is error
    end;
  end;

E2010不兼容的类型：'TGenericCollection<TBaseElement>'和'TGenericCollection<TGenericCollection<T>.T>'
如何解决这一矛盾？

您要查找的是此代码：

unit Generics.Legacy;

{$WARN SYMBOL_DEPRECATED OFF} // we know that Added and Deleting are deprecated
{$HINTS OFF} // we know we have intentionally hidden some overridden methods

interface

uses
  Classes;

type
  TCollection<T: TCollectionItem> = class(TCollection)
  private
    procedure Added(var Item: TCollectionItem); overload; override;
    procedure Deleting(Item: TCollectionItem); overload; override;
    procedure Notify(Item: TCollectionItem; Action: TCollectionNotification); overload; override;
    procedure SetItemName(Item: TCollectionItem); overload; override;
    procedure Update(Item: TCollectionItem); overload; override;
  protected
    procedure Added(var Item: T); reintroduce; overload; virtual; deprecated;
    procedure Deleting(Item: T); reintroduce; overload; virtual; deprecated;
    function GetItem(Index: Integer): T;
    procedure Notify(Item: T; Action: TCollectionNotification); reintroduce;
overload; virtual;
    procedure SetItem(Index: Integer; Value: T);
    procedure SetItemName(Item: T); reintroduce; overload; virtual;
    procedure Update(Item: T); reintroduce; overload; virtual;
  public
    type
      TCollectionEnumerator = class(Classes.TCollectionEnumerator)
      public
        function GetCurrent: T; inline;
        property Current: T read GetCurrent;
      end;

    constructor Create;
    function Add: T;
    function FindItemID(ID: Integer): T;
    function Insert(Index: Integer): T;
    function GetEnumerator: TCollection<T>.TCollectionEnumerator;
    property Items[Index: Integer]: T read GetItem write SetItem;
  end;

  TOwnedCollection<T: TCollectionItem> = class(TCollection<T>)
  private
    FOwner: TPersistent;
  protected
    function GetOwner: TPersistent; override;
  public
    constructor Create(AOwner: TPersistent);
  end;

implementation

{ TCollection<T> }
constructor TCollection<T>.Create;
begin
  inherited Create(T);
end;

function TCollection<T>.Add: T;
begin
  Result := T(inherited Add);
end;

procedure TCollection<T>.Added(var Item: T);
begin
end;

procedure TCollection<T>.Added(var Item: TCollectionItem);
begin
  Added(T(Item));
end;

procedure TCollection<T>.Deleting(Item: T);
begin
end;

procedure TCollection<T>.Deleting(Item: TCollectionItem);
begin
  Deleting(T(Item));
end;

function TCollection<T>.FindItemID(ID: Integer): T;
begin
  Result := T(inherited FindItemID(ID));
end;

function TCollection<T>.GetEnumerator: TCollection<T>.TCollectionEnumerator;
begin
  Result := TCollection<T>.TCollectionEnumerator.Create(Self);
end;

function TCollection<T>.GetItem(Index: Integer): T;
begin
  Result := T(inherited GetItem(Index));
end;

function TCollection<T>.Insert(Index: Integer): T;
begin
  Result := T(inherited Insert(Index));
end;

procedure TCollection<T>.Notify(Item: T; Action: TCollectionNotification);
begin
  inherited Notify(Item, Action);
end;

procedure TCollection<T>.Notify(Item: TCollectionItem; Action: TCollectionNotification);
begin
  Notify(T(Item), Action);
end;

procedure TCollection<T>.SetItem(Index: Integer; Value: T);
begin
  inherited SetItem(Index, Value);
end;

procedure TCollection<T>.SetItemName(Item: T);
begin
  inherited SetItemName(Item);
end;

procedure TCollection<T>.SetItemName(Item: TCollectionItem);
begin
  SetItemName(T(Item));
end;

procedure TCollection<T>.Update(Item: T);
begin
  inherited Update(Item);
end;

procedure TCollection<T>.Update(Item: TCollectionItem);
begin
  Update(T(Item));
end;

{ TCollection<T>.TCollectionEnumerator }
function TCollection<T>.TCollectionEnumerator.GetCurrent: T;
begin
  Result := T(inherited GetCurrent);
end;

{ TOwnedCollection<T> }
constructor TOwnedCollection<T>.Create(AOwner: TPersistent);
begin
  FOwner := AOwner;
  inherited Create(T);
end;

function TOwnedCollection<T>.GetOwner: TPersistent;
begin
  Result := FOwner;
end;

end.

我不知道这段代码的原作者是谁（我不知道），但我想这段代码是不久前在Embarcadero论坛上发布的。

delphi 如何在泛型中实现TCollection和TCollectionItem功能

1条答案

相关问题

热门标签

最新问答