blob: 0d534d64b431bff589ef407ce6be4147b9182606 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
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.
|
