s2.tools.ts2viewdict.pas

轉載的程序應用框架

unit S2.Tools.TS2ViewDict;

interface

uses
  S2.Tools.IS2ViewDict, S2.Model.TS2Model, S2.View.TS2View, S2.Tools.TS2Dict;

type
  TS2ViewDict = class(TS2Dict, IS2ViewDict)
  public
    function Find(ModelClass: TS2ModelClass): TS2ViewClass; virtual;  
    procedure Add(ModelClass: TS2ModelClass; ViewClass: TS2ViewClass); virtual;
  end;

implementation

uses
  S2.Tools.TS2DictItem;

{ TS2ViewDict }

procedure TS2ViewDict.Add(ModelClass: TS2ModelClass; ViewClass: TS2ViewClass);
begin
  inherited Add(TS2DictItem.Create(TObject(ViewClass), ModelClass.ClassName));
end;

function TS2ViewDict.Find(ModelClass: TS2ModelClass): TS2ViewClass;
begin
  Result := TS2ViewClass(inherited Find(ModelClass.ClassName));
end;

end.