home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PASCAL / TBTREE16.ZIP / EXAM0.PAS < prev    next >
Pascal/Delphi Source File  |  1989-07-15  |  1KB  |  34 lines
  1. unit exam0;
  2. {$R+}                                    (* done for debugging purposes only *)
  3.  
  4. (* This unit serves as the global definitions required for the example
  5.    programs.  By using a global declaration for the record definition, this
  6.    can easily be changed to see what affect the size of the record etc has on
  7.    the performance and operation of the product.  It also makes it easier for
  8.    me to use these programs for regression testing.                          *)
  9.  
  10. (*\*)
  11. (*////////////////////////// I N T E R F A C E //////////////////////////////*)
  12.  
  13. interface
  14.  
  15. const
  16.     TOTALRECORDS = 1000;                (* number of records in to be created *)
  17.     TESTSTRINGSIZE = 10;            (* size of strings (part of test record) *)
  18.  
  19. type
  20.     TestString = String[TESTSTRINGSIZE];
  21.  
  22.     TestRecord = record                   (* record definition for data file *)
  23.                  randByte : Byte;
  24.                  randString : TestString;
  25.                  end;
  26.  
  27. (*!*)
  28. (*\*)
  29. (*///////////////////// I M P L E M E N T A T I O N /////////////////////////*)
  30.  
  31. implementation
  32.  
  33. end.                                                    (* end of Exam0 unit *)
  34.