s2.model.is2model.pas

来自「轉載的程序應用框架」· PAS 代码 · 共 19 行

unit S2.Model.IS2Model;

interface

uses
  S2.Model.IS2ModelFactory, S2.Tools.TS2Object;

type
  IS2Model = interface
    function GetFactory: IS2ModelFactory;
    function IsAutoOpen: Boolean;
    function IsReadOnly: Boolean;
    procedure CloseModel;
    procedure OpenModel(O: TS2Object);
  end;

implementation

end.