blob: 37fc2c3bc533ada3ffd9a183ceb42486f6add263 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
Program Example108;
{ Program to demonstrate the IndexChar function. }
Const
ArraySize = 1000;
MaxValue = 26;
Var
Buffer : Array[1..ArraySize] of Char;
I,J : longint;
K : Char;
begin
Randomize;
For I:=1 To ArraySize do
Buffer[I]:=chr(Ord('A')+Random(MaxValue));
For I:=1 to 10 do
begin
K:=chr(Ord('A')+Random(MaxValue));
J:=IndexChar(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.
|
