Функция StrPos()

Модуль Strings

Возвращает указатель на первое вхождение одной строки в другую.

Объявление:

Function StrPos(Str1, Str2 : PChar) : PChar;

Режим:

Windows,  Protected,  Real

Замечание:

StrPos возвращает указатель на первое вхождение строки Str2 в строку Str1. Если Str2 не входит в Str1, возвращается NIL.

Пример:

{ Пример программы для функции StrPos }
 
Uses Strings, WinCrt;
 
Var       P : PChar;
  S, SubStr : Array [0..79] Of Char;
Begin
 ReadLn(S);
 ReadLn(SubStr);
 P:=StrPos(S, SubStr);
 If P=NIL Then WriteLn('Подстрока не найдена.')
          Else WriteLn('Подстрока найдена в позиции ', P - S);
End.