mainmdl.pas

Delphi利用MVC开发的典型例子

  unit MainMdl;                                          
                                                              

interface                                                     

uses Classes, forms, SysUtils, patterns;                      

                                                              

type                                                          

  TModelMain = class(TObservable)                       

  public                                                      

    constructor Create;                                       

    destructor Destroy; override;                             

  end;                                                        

                                                              

                                                              

implementation                                                

                                                              

                                                              

constructor TModelMain.Create;                          

begin                                                         

end;                                                          

                                                              

destructor TModelMain.Destroy;                          

begin                                                         

  inherited;                                                  

end;                                                          

                                                              

                                                              

end.