umodel.pas

来自「一整套的源代码」· PAS 代码 · 共 56 行

unit UModel;

interface

uses
  SysUtils, Classes, ComObj,
  MyModel, MyTools;

type
  TModel = class(TDataModule, IModel)
  private
    FIsModified: Boolean;
{---------------------------------------- IModel ----------------------------------------}
  protected
    function GetIsModified: Boolean; virtual;
    procedure SetIsModified(const Value: Boolean); virtual;
    procedure Refresh(Parameters: IParameters); virtual;
  public
    property IsModified: Boolean read GetIsModified write SetIsModified;
  public
    constructor Create(Owner: TComponent); override;
  end;

implementation

uses
  MyException;

{$R *.dfm}

{ TModel }

constructor TModel.Create(Owner: TComponent);
begin
  inherited;
  FIsModified := False;
end;

function TModel.GetIsModified: Boolean;
begin
  Result := True;
end;

procedure TModel.Refresh(Parameters: IParameters);
begin

end;

procedure TModel.SetIsModified(const Value: Boolean);
begin
  FIsModified := Value;
end;

end.