DELPHI MVC 实现_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

DELPHI MVC 实现

作者：闵涛文章来源：闵涛的学习笔记点击数：720 更新时间：2009/4/23 18:30:32

昨天我自己引用了一个国外的网页，是关于MVC的，也是给大家做参考的，其实他所理解的MVC我不完全赞成，现将我的MVC 实现公布

下面是C控制层的代码！！！

{*******************************************************}
{ unit name: Controller                                 }
{ class: TProgramController                            }
{ descripate: 此Class为MVC中的控制层，                 }
{             担任着程序流程的调度工作                  }
{ blog : http://blog.csdn.net/zhuam                     }
{ author: zhuam                                         }
{ date : 2004/10/25                                     }
{ Copyright (c) 1.0                                     }
{*******************************************************}

unit Controller;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, ExtCtrls, Model;

{-----------------------------------
descripate: 用于分发程序的业务流程
------------------------------------}
type
   TProgramController=class(TObject)
   private
     TempModelClass:IProgramModel; //业务逻辑Class   <Base Model>
   public
     procedure portal(FView:TForm;sOperator:string);

end;

implementation

uses Util, UnitMVCExample;

{ TProgramController }

procedure TProgramController.portal(FView: TForm;sOperator: string);
var
ClassTemp:TComponentClass;
SListRead:TSListReader;
XMLRead:TXMLReader;
sModel:string;
begin
try
    SListRead:=TSListReader.Create;
    XMLRead:=TXMLReader.Create;
    sModel:=SListRead.getSListDataToModelString(XMLRead.getXMLDataToList,FView.Name,sOperator);
    if Trim(sModel)<>'''''''' then
    begin
      ClassTemp:=TComponentClass(getClass(sModel));   //类似java中的反射，根据名称产生Class实例
      TempModelClass:=(ClassTemp.Create(nil) as IProgramModel);
      TempModelClass.Execute(FView);
    end;
except
    //raise
end;
end;