1 578
editací
Změny
Vytvorená stránka „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ávrato...“
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.
[[Category:String]]
;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.
[[Category:String]]