mysecurity.pas

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

unit MySecurity;

interface

type
  IRole = interface
  end;

  ISecurity = interface;

  ISecurityManager = interface
    function Query(Security: ISecurity; Role: IRole): Boolean;
  end;

  ISecurity = interface
  end;

  ISecurityManagerFactory = interface
    procedure SetRole(Role: IRole);
    function GetRole: IRole;
    function GetManager: ISecurityManager;
    procedure FreeManager;
  end;

implementation

end.