mainmdl.pas

来自「Delphi利用MVC开发的典型例子」· PAS 代码 · 共 37 行

unit MainMdl;

interface
uses Classes, forms, SysUtils, patterns;

type
  TModelMain = class(TObservable)
  public
    constructor Create;
    destructor Destroy; override;
    procedure setData(CMD: string; data: TObject);
  end;


implementation
uses
  commandlist;

procedure TModelMain.setData(CMD: string; data: TObject);
begin
  //don't free the param when command release
  self.Notify(TCommand.create(CMD, nil, data, '', nil, false));
end;

constructor TModelMain.Create;
begin
end;

destructor TModelMain.Destroy;
begin
  inherited;
end;


end.