home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / source / docs / stringex / ex15.pp < prev    next >
Encoding:
Text File  |  2000-01-01  |  238 b   |  12 lines

  1. Program Example15;
  2.  
  3. Uses strings;
  4.  
  5. { Program to demonstrate the StrPos function. }
  6.  
  7. Const P : PChar = 'This is a PChar string.';
  8.       S : Pchar = 'is';
  9. begin
  10.   Writeln ('Position of ''is'' in P : ',longint(StrPos(P,S))-Longint(P));
  11. end.
  12.