home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
CPROG
/
TASMSWAN.ZIP
/
FILLSTR.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-07-17
|
255b
|
15 lines
PROGRAM FillStr;
{ Test using the FillString external function }
VAR s : String;
FUNCTION FillString( n : Byte; ch : Char ) : String; EXTERNAL;
{$L FILLSTR.OBJ }
BEGIN
s := FillString( 45, '@' );
Writeln( 'After filling: ', s)
END.