home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / SFROM21F.ZIP / EZRECORD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-05-31  |  1.6 KB  |  54 lines
  1. { EZRECORD unit. Constants and types only.     }
  2. { Turbo Pascal Record Structures               }
  3. { As used by SFROM.EXE, EZREQ.EXE, EZUSER.EXE  }
  4. { Copyright 1992 - 1995 Michael N. Robinson. All Rights Reserved. }
  5.  
  6. { Just include this unit in your program's USES statement and   }
  7. { you can use all of these constants and types in your program. }
  8.  
  9. UNIT EZRECORD;
  10.  
  11. INTERFACE
  12.  
  13. CONST
  14.   Request = 2;   { These used for RequestRecord.Status }
  15.   Send    = 1;
  16.   Done    = 0;
  17.  
  18. TYPE
  19.  
  20.   { EZROM.REC is a File of RequestRecord }
  21.   RequestRecord = Record
  22.                     Status      : Byte;
  23.                     Date        : String[8];
  24.                     UserName    : String[30];
  25.                     DiskName    : String[30];
  26.                     CDPath      : String[79];
  27.                     RequestDir  : String[79];
  28.                     Description : String[60];
  29.                     Extra       : String[30]; {Reserved for future expansion}
  30.                   End;
  31.  
  32.   { EZROM.DAT is a File of EzUser }
  33.   EzUser = Record
  34.              UserName        : String[30];
  35.              EnterDate       : String[8];
  36.              ReqFilesToday   : LongInt;
  37.              ReqBytesToday   : LongInt;
  38.              ReqFilesTotal   : LongInt;
  39.              ReqKBytesTotal  : LongInt;
  40.              DoorFilesToday  : LongInt;
  41.              DoorBytesToday  : LongInt;
  42.              DoorFilesTotal  : LongInt;
  43.              DoorKBytesTotal : LongInt;
  44.              FlagForDelete   : Boolean;
  45.              Extra           : String[30];    {Reserved for future expansion}
  46.            End;
  47.  
  48. IMPLEMENTATION
  49.  
  50. BEGIN
  51.  
  52. END. UNIT
  53.  
  54.