home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TVTOOL.ZIP / TVTYPE.INT < prev    next >
Encoding:
Text File  |  1992-10-08  |  1.2 KB  |  72 lines
  1. {*
  2. *   TvType.pas
  3. *
  4. *   Enhancements to Turbo Vision type definitions.
  5. *
  6. *   Copyright 1992 by Richard W. Hansen
  7. *
  8. *}
  9.  
  10. UNIT TvType;
  11. {$X+}
  12. {$V-}
  13.  
  14. {$I TVDEFS.INC}
  15.  
  16. INTERFACE
  17.  
  18. USES
  19.   Dos,
  20.   Objects;
  21.  
  22.  
  23. CONST
  24.   DateSlash = '/';
  25.  
  26.  
  27. TYPE
  28.   FrameArray    = Array[1..8] of Char;
  29.  
  30.  
  31.   PostEditFunc  = Function(P : Pointer; ID : Word): Boolean;
  32.  
  33.  
  34.   TCharBuf    = Array[0..$FFE0] of Char;
  35.   PCharBuf    = ^TCharBuf;
  36.  
  37.  
  38.   TByteBuf    = Array[0..$FFE0] of Byte;
  39.   PByteBuf    = ^TByteBuf;
  40.  
  41.  
  42.   TCharSet    = Set of Char;
  43.  
  44.  
  45.   THexLong    = record
  46.     Low, High : Word;
  47.   end;
  48.  
  49.  
  50.   TDateSt  = String[15];
  51.  
  52.   PDate = ^TDate;
  53.   TDate = Object(TObject)
  54.     Day   : Byte;
  55.     Month : Byte;
  56.     Year  : Word;
  57.  
  58.     Procedure   SetDate(D : Byte;
  59.                         M : Byte;
  60.                         Y : Word);
  61.     Procedure   SetDay(D : Byte);
  62.     Procedure   SetMonth(M : Byte);
  63.     Procedure   SetYear(Y : Word);
  64.     Procedure   SetToday;
  65.     Function    ValidDate: Boolean;
  66.     Function    DateString(Picture : TDateSt): TDateSt;
  67.     Procedure   ExtractDate(Picture : TDateSt;
  68.                           ADateSt : TDateSt);
  69.     Function  Compare(var ADate : PDate): Integer;
  70.   end;
  71.  
  72.