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.

Citováno z „https://trsek.com/pascal/index.php?title=StrPos&oldid=1695“

String