mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 13:09:35 +02:00
14 lines
300 B
ObjectPascal
14 lines
300 B
ObjectPascal
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.
|