blob: 42601ff1ccdf26158de52b95fde2abcdbcee910f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Program Example104;
{ Program to demonstrate the FillDWord function. }
Const
ArraySize = 1000;
Var
S : Array [1..ArraySize] of DWord;
I : longint;
begin
FillDWord(S,ArraySize,0);
For I:=1 to ArraySize do
If S[i]<>0 then
Writeln('Position ',i,' not zeroed out');
end.
|
