home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / delphi / ODA10 / _SETUP.1 / DAO_Base.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-03-20  |  974 b   |  39 lines
  1. unit DAO_Base;
  2.  
  3. { Data Access Objects (DAO) interface for Delphi 32 - base decls.
  4.   (c)1996 by Opus Software GmbH }
  5.  
  6. {==============================================================================}
  7. interface
  8. uses
  9.   OLE2;
  10.  
  11.  
  12. const
  13.   TheLicKey =    'mjgcqcejfchcijecpdhckcdjqigdejfccjri';
  14.  
  15. type
  16.   TDAOStr =      TBStr;
  17.   TDAOBookmark = record
  18.     bmPtr:         PVarArray;
  19.     bmDummy:       longint;    // this is unnecessary, but makes Delphi pass
  20.                                // the thing by reference when "const"                             
  21.                  end;
  22.   VariantArg =   TVarData;
  23.   VariantBool =  WordBool;
  24.   VarIIndexFields = VariantArg;
  25.   VarIField =    VariantArg;
  26.  
  27.   { To pass arguments of this type, use the construct
  28.  
  29.       VariantArg( VarAsType( <value>, <type> ))
  30.  
  31.     where <type> is TVarType. }
  32.  
  33.  
  34. {==============================================================================}
  35. implementation
  36.  
  37.  
  38. end {DAO_Base}.
  39.