DELPHI 2010 的泛型 还是很给力的

下载DELPHI 2010 很长时间了， 一直没有用。今日之项目的设计要用到泛型（先前一直用C#来搞），就安装来看看。 看下面的MVP设计， 是本项目设计的基本信息设计框架，呵呵，很舒服。剩下的时间就是搞定那个<T> 就OK了。  

type
  IBasicView<T> = interface
  ['{F1DD7641-36BF-4A35-A630-6DAFBC39A75E}']
    procedure SetList(Value: TList<T>);
    procedure SetRequestListEvent(Value: TEvent);
    property List: TList<T> write SetList;
    property RequestListEvent: TEvent write SetRequestListEvent;
  end;

 

type
  TBasicPresenter<T> = class
  private
    FModel: IBasicModel<T>;
    FView: IBasicView<T>;
  protected
    procedure RequestListFromModel;
    procedure PutListToView;
  public
    procedure AfterConstruction; override;
    constructor Create(View: IBasicView<T>; Model: IBasicModel<T>);
  end;

 

type
  IBasicModel<T> = interface
  ['{F031A286-7CEE-4539-8727-791D5D539C14}']
    procedure LoadListRequest;
    function GetList: TList<T>;
    procedure SetUpdateListEvent(Value: TEvent);
    property List: TList<T> read GetList;
    property UpdateListEvent: TEvent write SetUpdateListEvent;
  end;