fpc/docs/refex/ex25.pp
1998-03-25 11:26:49 +00:00

17 lines
278 B
ObjectPascal

Program Example25;
{ Program to demonstrate the FillChar function. }
Var S : String[10];
I : Byte;
begin
For i:=10 downto 0 do
begin
{ Fill S with i spaces }
FillChar (S,SizeOf(S),' ');
{ Set Length }
S[0]:=chr(i);
Writeln (s,'*');
end;
end.