blob: 4498c4cfab009fd037b150d6d31fd920bfec52e1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
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 : ',sizeint(StrPos(P,S))-sizeint(P));
end.
|
