Функция StrPos
Возвращает указатель на первое вхождение одной строки в другую.
Объявление:
Function StrPos(Str1, Str2 : PChar) : PChar;
Режим: Windows, Protected, Real
Замечания:
StrPos возвращает указатель на первое вхождение строки Str2 в строку Str1. Если Str2 не входит в Str1, возвращается NIL.
Пример программы: strpos.pas
Код примера
{StrPos.PAS} { Пример программы для функции 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.
