Function StrPos (S1,S2 : PChar) : PChar;
Returns a pointer to the first occurrence of S2 in S1. If S2 does not occur in S1, returns Nil.
None.
Program Example15;
Uses strings;
{ Program to demonstrate the StrPos function. }
Const P : PChar = 'This is a PChar string.';
S : Pchar = 'is';
begin
Writeln ('Position of ''is'' in P : ',longint(StrPos(P,S))-Longint(P));
end.