home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPBOOK.ZIP / TPBOOK.EXE / SOURCE.EXE / FORMAT2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-08-07  |  509 b   |  28 lines
  1. { FORMAT2.PAS
  2.   Demonstrates use of the Turbo Vision FormatStr procedure using a
  3.   parameter array.
  4. }
  5.  
  6. program DemoFormat;
  7. uses
  8.   Drivers, Objects;
  9.  
  10. type
  11.   TParamArray = array[0..1] of LongInt;
  12.  
  13. var
  14.   ParamArray : TParamArray;
  15.   ResultStr: String;
  16.  
  17. begin
  18.  
  19.   ParamArray[0] := LongInt(NewStr('SAMPLE.TXT'));
  20.   ParamArray[1] := 654321;
  21.  
  22.   FormatStr( ResultStr, 'File %s is %d bytes in size.', ParamArray );
  23.  
  24.   Writeln( ResultStr );
  25.   Write('Press Enter to Continue.');
  26.   Readln;
  27. end.
  28.