mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 10:31:44 +01:00
12 lines
238 B
ObjectPascal
12 lines
238 B
ObjectPascal
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.
|