home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0207.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-31  |  713 b   |  36 lines
  1. Program InspectorExample;
  2. { This sample program is used to introduce the reader to the }
  3. { inspect window of the Turbo Debugger.  We will use it to   }
  4. { view large data items, view a function, and inspect a      }
  5. { complex data item.                                         }
  6.  
  7. {$I DEBUG.INC}
  8.  
  9. Type
  10.   ArrayType = Array[1..200] of Byte;
  11.  
  12.   RecType = Record
  13.     I : Integer;
  14.     R : Real;
  15.     A : ArrayType;
  16.   End;
  17.  
  18. Var
  19.   X : RecType;
  20.  
  21. Function Initialize( Var X : RecType ) : Boolean;
  22. Begin
  23.   X.I := 0;
  24.   X.R := 0.0;
  25.   FillChar( X.A, SizeOf( X.A ), #0 );
  26.   Initialize := True;
  27. End;
  28.  
  29. Begin
  30.   If( Initialize( X ) ) Then
  31.     Writeln( 'TRUE' )
  32.   Else
  33.     Writeln( 'False' );
  34. End.
  35.  
  36.