1 578
editací
Změny
Vytvorená stránka „Vrací ukazatel na první výskyt znaku v řetězci. ;Deklarace function StrScan(Str: PChar; Chr: Char): PChar; ;Režim :Windows, Reálný, Chráněný ;Návratová ...“
Vrací ukazatel na první výskyt znaku v řetězci.
;Deklarace
function StrScan(Str: PChar; Chr: Char): PChar;
;Režim
:Windows, Reálný, Chráněný
;Návratová hodnota
:0, jestliže Chr není obsažen v Str
;Poznámky
:[[StrScan]] vrací pointr na první výskyt Chr v Str. Jestliže Chr se v Str nevyskytuje, [[StrScan]] vrátí [[nil]]. Nulový ukončovací znak se považuje za součást řetězce.
;Viz také
:[[StrRScan]]
Vzorový příklad
{StrScan.PAS}
{Vzorový příklad pro funkci StrScan.}
{ Vrací TRUE, pokud jméno souboru obsahuje expanzní znaky }
{ Pro Windows: }
{ uses WinCrt, Strings; }
uses Strings;
function HasWildcards(FileName: PChar): Boolean;
begin
HasWildcards := (StrScan(FileName, '*') <> nil) or
(StrScan(FileName, '?') <> nil);
end;
begin
Writeln ('Má expanzní znaky: ', HasWildCards('C:Test.*'));
end.
[[Category:String]]
;Deklarace
function StrScan(Str: PChar; Chr: Char): PChar;
;Režim
:Windows, Reálný, Chráněný
;Návratová hodnota
:0, jestliže Chr není obsažen v Str
;Poznámky
:[[StrScan]] vrací pointr na první výskyt Chr v Str. Jestliže Chr se v Str nevyskytuje, [[StrScan]] vrátí [[nil]]. Nulový ukončovací znak se považuje za součást řetězce.
;Viz také
:[[StrRScan]]
Vzorový příklad
{StrScan.PAS}
{Vzorový příklad pro funkci StrScan.}
{ Vrací TRUE, pokud jméno souboru obsahuje expanzní znaky }
{ Pro Windows: }
{ uses WinCrt, Strings; }
uses Strings;
function HasWildcards(FileName: PChar): Boolean;
begin
HasWildcards := (StrScan(FileName, '*') <> nil) or
(StrScan(FileName, '?') <> nil);
end;
begin
Writeln ('Má expanzní znaky: ', HasWildCards('C:Test.*'));
end.
[[Category:String]]