mysystem.pas

来自「Delphi6开发的HIS程序」· PAS 代码 · 共 35 行

unit MySystem;

interface

uses
  MyTools;

type
  IObjectCache = interface
    procedure Push(O: MyTools.ICloneable);
    function Pull: MyTools.ICloneable;
  end;

  IDataExchange = interface
{
    procedure SetInnerMemmory(InnerMemmory: IObjectCache);
    procedure CopyToClipboard;
    procedure CopyToObjectCache;
    procedure PasteFromClipboard;
    procedure PasteFromObjectCache;
}    
    procedure SaveToFile;
  end;

  IRunState = interface
    function GetValid: Boolean;
    procedure SetValid(Value: Boolean);
    function GetActive: Boolean;
    procedure SetActive(Value: Boolean);
  end;

implementation

end.