home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Vectronix 2
/
VECTRONIX2.iso
/
FILES_07
/
HISPEED1.ZIP
/
DOSDEMO
/
STRDEMO.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1991-07-02
|
472b
|
21 lines
Program StrDemo;
{ This small program demonstrates how to use one of the new }
{ features in the UTILUNIT.PAS file }
Uses UtilUnit;
Var
R : Real;
Begin
Write('Enter a number: '); ReadLn(R);
{ All output to the StrOut file is stored in the string StrData. }
Write(StrOut,R :20:10);
{ StrData now contains the entered number. }
{ Including the formatting spaces. }
Writeln('You entered: ',StrData);
End.