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