Delphi 泛型对象类

 {
   很早就写了．　只针对delphixe 以上的版本可用．
　　希望不是自己在造轮子．　
 }
 1 unit U_ClassUtility;

interface
  uses generics.defaults,DateUtils,Classes,SysUtils,Windows, generics.collections;

type
   TGenericList<T> = class
   private
      fList : Tlist<T>;
      procedure SetList(const Value: TList<T>);
   public
      procedure clear;
      procedure Add(Aobj : T);

      constructor Create;
      destructor Destroy; override;
      property List : TList<T> read FList write SetList;
   end;

implementation
{ TGenericList<T> }

procedure TGenericList<T>.Add(Aobj: T);
begin
  fList.Add(Aobj);
end;

procedure TGenericList<T>.clear;
var
  i : Integer;
begin
  for I := 0 to fList.Count -1 do
   TObject(fList.Items[i]).Free;

  fList.Clear;
end;

constructor TGenericList<T>.Create;
begin
  fList :=  TList<T>.Create;
end;

destructor TGenericList<T>.Destroy;
begin
  clear;
  fList.Free;
  inherited;
end;

procedure TGenericList<T>.SetList(const Value: TList<T>);
begin
  FList := Value;
end;

end.