home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 09 / tricks / defines.inc < prev    next >
Encoding:
Text File  |  1990-06-15  |  871 b   |  25 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     DEFINES.INC                        *)
  3. (* Include-Datei zur Definition aller Parameter, die zur  *)
  4. (* Verwaltung individueller ISAM-Dateien benötigt werden  *)
  5. (*         (c) 1990 Karlheinz Büker & TOOLBOX             *)
  6. (* ------------------------------------------------------ *)
  7.  
  8. { DEMONSTRATION ADRESSVERWALTUNG }
  9. TYPE
  10.   Key      = STRING[20];
  11.   DataType = RECORD
  12.                Valid   : BOOLEAN;
  13.                OB      : Key;   { Zuname }
  14.                Vorname : STRING[20];
  15.                Plz     : WORD;
  16.                Ort     : STRING[20];
  17.                Str     : STRING[20];
  18.              END;
  19.  
  20. CONST
  21.   IgnoreCase    : BOOLEAN   = TRUE;
  22.   ExpandOB      : BOOLEAN   = TRUE;
  23.   DoubleAllowed : BOOLEAN   = TRUE;
  24.   FileName      : STRING[8] = 'ADRESSEN';
  25.