home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / crosscom / tptc / test2.pas < prev    next >
Pascal/Delphi Source File  |  1988-03-25  |  2KB  |  63 lines
  1.  
  2. Program test;
  3.  
  4. {test source for tptc's translation of declarations}
  5.  
  6.   Type
  7.     CompDataRec = Record
  8.                     Opr : Byte; { Operator }
  9.                     Case T : Integer Of
  10.                       0 : (Dat1, Dat2 : Integer);
  11.                       1 : (Str1, Str2 : Byte);
  12.                       2 : (Byt1, Byt2 : Byte);
  13.                       3 : (Int1, Int2 : Integer);
  14.                       4 : (Real1, Real2 : Real);
  15.                       5, 6 : (Bool1, Bool2 : Boolean);
  16.                   End;
  17.  
  18.     DateRec = Record
  19.                 Year : Integer;
  20.                 Month : Integer;
  21.                 Day : Integer;
  22.               End;
  23.  
  24.     BuffTyp = Record
  25.                 Status : Integer;
  26.                 Name1 : Integer;
  27.                 name2 : Integer;
  28.                 name3 : Boolean;
  29.                 name4 : Integer;
  30.                 name5 : Real;
  31.                 name6 : Real;
  32.                 name7 : Array[1..3] Of Integer;
  33.                 Birth : DateRec;
  34.                 LastIn : DateRec;
  35.                 Recall : DateRec;
  36.               End;
  37.  
  38.  
  39.   Procedure ClearBuff(Var Buff : BuffTyp;
  40.                       RecN : Integer);
  41.     Const
  42.       BlankBuf : BuffTyp =
  43.       (Status : 0;
  44.       Name1 : 0;
  45.       name2 : 0;
  46.       name3 : False;
  47.       name4 : 0;
  48.       name5 : 0.0;
  49.       name6 : 0.0;
  50.       name7 : (1, 0, 0);
  51.       Birth : (Year : 0; Month : 0; Day : 0);
  52.       LastIn : (Year : 0; Month : 0; Day : 0);
  53.       Recall : (Year : 0; Month : 0; Day : 0));
  54.     Begin
  55.       {body of clearbuff}
  56.       Buff := BlankBuf;
  57.     End;
  58.  
  59.   Begin
  60.     {main block}
  61.   End.
  62.  
  63.