home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / vrac / apdtr.zip / ADDATAB.INT < prev    next >
Text File  |  1995-05-26  |  1KB  |  47 lines
  1. {$G+,X+,F+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                   ADDATAB.PAS 1.00                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit ADDataB;
  13.   {-INI/Database concepts}
  14.  
  15. interface
  16.  
  17. uses
  18.   SysUtils,
  19.   Classes,
  20.   OoMisc;
  21.  
  22. type
  23.   {information about one field in an INI database}
  24.   TDBFieldInfo = class(TObject)
  25.   public
  26.     Len   : Word;
  27.     IsStr : Boolean;
  28.     Name  : String;
  29.  
  30.     constructor CreateString(const FldName : String; FldLen : Word);
  31.     constructor CreateInt(const FldName : String);
  32.     constructor Copy(FI : TDBFieldInfo);
  33.   end;
  34.  
  35.   {a list of TDBFieldInfos}
  36.   TDBFieldList = class(TList)
  37.   public
  38.     procedure StrsToPChars(var StrRec, PCharRec);
  39.       {-Convert a record with string variables to a record with PChars}
  40.     procedure PCharsToStrs(var PCharRec, StrRec);
  41.       {-Convert a record with PChar variables to a record with strings}
  42.   end;
  43.  
  44.   {an indexed field}
  45.   TDBIndexedField = String[MaxNameLen];
  46.  
  47.