StrPos

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

Vrací pointr na první výskyt řetězce v jiném řetězci.

Deklarace
function StrPos(Str1, Str2: PChar): PChar;
Režim
Windows, Reálný, Chráněný
Návratová hodnota
nil, pokud Str2 není obsažen v Str1
Poznámky
StrPos vrací pointr na první výskyt Str2 v Str1. Jestliže Str2 se v Str1 nevyskytuje, StrPos vrátí nil.


Vzorový příklad

{StrPos.PAS}
{Vzorový příklad pro funkci StrPos.}
{ Pro Windows: }
{ uses Strings, WinCrt; }
uses Strings;
var
  P: PChar;
  S, SubStr: array[0..79] of Char;
begin
  Readln(S);
  Readln(SubStr);
  P := StrPos(S, SubStr);
  if P = nil then
    Writeln('Podřetězec není nalezen');
  else
    Writeln('Podřetězec nalezen na pozici ', P - S);
end.