blob: 675cc3fe8ebbc7fd2eacfc95d6e6cc9b5e2a4c6d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Program Example103;
{ Program to demonstrate the FillByte function. }
Var S : String[10];
I : Byte;
begin
For i:=10 downto 0 do
begin
{ Fill S with i bytes }
FillByte (S,SizeOf(S),32);
{ Set Length }
SetLength(S,I);
Writeln (s,'*');
end;
end.
|
