mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 17:31:42 +01:00
17 lines
280 B
ObjectPascal
17 lines
280 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 }
|
|
SetLength(S,I);
|
|
Writeln (s,'*');
|
|
end;
|
|
end.
|