CompareWord
Compare 2 memory buffers word per word
Declaration
Source position: systemh.inc line 882
function CompareWord(const buf1; const buf2; len: SizeInt) : SizeInt;
Description
CompareWord compares two memory regions buf1,buf2 on a Word-per-Word basis for a total of len Words. (A Word is 2 bytes).
The function returns one of the following values:
- -1
- if buf1 and buf2 contain different Words in the first len Words, and the first such Word is smaller in buf1 than the Word at the same position in buf2.
- 0
- if the first len Words in buf1 and buf2 are equal.
- 1
- if buf1 and buf2 contain different Words in the first len Words, and the first such Word is larger in buf1 than the Word at the same position in buf2.
Errors
None.
See also
| Name | Description |
|---|---|
| CompareByte | Compare 2 memory buffers byte per byte |
| CompareChar | compare 2 memory buffers character per character |
| CompareDWord | Compare 2 memory buffers DWord per DWord |
Example
Program Example102;
{ Program to demonstrate the CompareWord function. }
Const
ArraySize = 100;
HalfArraySize = ArraySize Div 2;
Var
Buf1,Buf2 : Array[1..ArraySize] of Word;
I : longint;
Procedure CheckPos(Len : Longint);
Begin
Write('First ',Len,' words are ');
if CompareWord(Buf1,Buf2,Len)<>0 then
Write('NOT ');
Writeln('equal');
end;
begin
For I:=1 to ArraySize do
begin
Buf1[i]:=I;
If I<=HalfArraySize Then
Buf2[I]:=I
else
Buf2[i]:=HalfArraySize-I;
end;
CheckPos(HalfArraySize div 2);
CheckPos(HalfArraySize);
CheckPos(HalfArraySize+1);
CheckPos(HalfArraySize + HalfArraySize Div 2);
end.