mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-28 18:28:30 +02:00
28 lines
523 B
ObjectPascal
28 lines
523 B
ObjectPascal
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.
|