bcexceptions.pas

来自「Virtual CD Sample driver」· PAS 代码 · 共 33 行

{ Unit: BcExceptions
  ===========================================================================

  Copyright (C) 2001 Bluecave Software. All Rights Reserved.
  http://www.bluecave.net/

  Copyright (C) 2001 Jouni Airaksinen. All Rights Reserved.
  http://Mintus.Codefield.com/ -- [e-mail]

  =========================================================================== }

{$I DFS.inc}
{$I BcDirectives.inc}

unit BcExceptions;

interface

uses SysUtils, Classes;

resourcestring
  SInvalidPropertyIndexAt = 'Invalid property index %d at %s.';
  SInvalidPropertyIndex = 'Invalid property index %d.';
  SRequireOwner = 'Tried to create %s with no owner.';

type
  EInvalidPropertyIndex = class(Exception);
  ERequireOwner = class(Exception);

implementation

end.