[next] [prev] [prev-tail] [tail] [up]

#### IndexByte

Declaration:
  function IndexByte(var buf;len:longint;b:byte):longint;
Description:
  IndexByte searches the memory at buf for maximally len positions for the byte b and returns it’s position if it found one. If b is not found then -1 is returned.

  The position is zero-based.

Errors:
  Buf and Len are not checked to see if they are valid values.
See also:
  IndexChar (517), IndexDWord (519), IndexWord (520), CompareByte (466)

Listing: refex/ex105.pp

Program Example105;
{ Program to demonstrate the IndexByte function. }
Const
ArraySize = 256;
MaxValue = 256;
Var
Buffer : Array[1..ArraySize] of Byte;
I,J : longint;
K : Byte;
begin
Randomize;
For I:=1 To ArraySize do
Buffer[I]:=Random(MaxValue);
For I:=1 to 10 do
begin
K:=Random(MaxValue);
J:=IndexByte(Buffer,ArraySize,K);
if J=-1 then
Writeln('Value ',K,' was not found in buffer.')
else
Writeln('Found ',K,' at position ',J,' in buffer');
end;
end.

[next] [prev] [prev-tail] [front] [up]