3
{ Program to demonstrate the CompareDWord function. }
7
HalfArraySize = ArraySize Div 2;
10
Buf1,Buf2 : Array[1..ArraySize] of Dword;
13
Procedure CheckPos(Len : Longint);
16
Write('First ',Len,' DWords are ');
17
if CompareDWord(Buf1,Buf2,Len)<>0 then
24
For I:=1 to ArraySize do
27
If I<=HalfArraySize Then
30
Buf2[i]:=HalfArraySize-I;
32
CheckPos(HalfArraySize div 2);
33
CheckPos(HalfArraySize);
34
CheckPos(HalfArraySize+1);
35
CheckPos(HalfArraySize + HalfArraySize Div 2);