blob: 54ad4cc0c0961d1f0193b7d459db8666fec24beb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Program Example13;
Uses strings;
{ Program to demonstrate the StrScan and StrRScan functions. }
Const P : PChar = 'This is a PCHAR string.';
S : Char = 's' ;
begin
Writeln ('P, starting from first ''s'' : ',StrScan(P,s));
Writeln ('P, starting from last ''s'' : ',StrRScan(P,s));
end.
|
