1 578
editací
Změny
Vytvorená stránka „Vrací ukazatel na poslední výskyt znaku v řetězci. ;Deklarace function StrRScan(Str: PChar; Chr: Char): PChar; ;Režim :Windows, Reálný, Chráněný ;Návrato...“
Vrací ukazatel na poslední výskyt znaku v řetězci.
;Deklarace
function StrRScan(Str: PChar; Chr: Char): PChar;
;Režim
:Windows, Reálný, Chráněný
;Návratová hodnota
:Vrací ukazatel na poslední výskyt znaku Chr v řetězci Str.
:[[nil]], jestliže Chr není obsažen v Str
;Poznámky
:[[StrRScan]] vrací pointr na poslední výskyt Chr v Str. Jestliže Chr se v Str nevyskytuje, [[StrRScan]] vrátí [[nil]]. Nulový ukončovací znak se považuje za součást řetězce.
;Viz také
:[[StrScan]]
Vzorový příklad
{StrRScan.PAS}
{Vzorový příklad pro funkci StrRScan.}
{ Vrací ukazatel na prosté jméno souboru v úplne cestě }
{ Pro Windows: }
{ uses Strings, WinCrt; }
uses Strings;
function NamePart(FileName: PChar): PChar;
var
P: PChar;
begin
P := StrRScan(FileName, '');
if P = nil then
begin
P := StrRScan(FileName, ':');
if P = nil then P := FileName;
end;
NamePart := P;
end;
begin
Writeln (NamePart('C:Test.fil'));
end.
[[Category:String]]
;Deklarace
function StrRScan(Str: PChar; Chr: Char): PChar;
;Režim
:Windows, Reálný, Chráněný
;Návratová hodnota
:Vrací ukazatel na poslední výskyt znaku Chr v řetězci Str.
:[[nil]], jestliže Chr není obsažen v Str
;Poznámky
:[[StrRScan]] vrací pointr na poslední výskyt Chr v Str. Jestliže Chr se v Str nevyskytuje, [[StrRScan]] vrátí [[nil]]. Nulový ukončovací znak se považuje za součást řetězce.
;Viz také
:[[StrScan]]
Vzorový příklad
{StrRScan.PAS}
{Vzorový příklad pro funkci StrRScan.}
{ Vrací ukazatel na prosté jméno souboru v úplne cestě }
{ Pro Windows: }
{ uses Strings, WinCrt; }
uses Strings;
function NamePart(FileName: PChar): PChar;
var
P: PChar;
begin
P := StrRScan(FileName, '');
if P = nil then
begin
P := StrRScan(FileName, ':');
if P = nil then P := FileName;
end;
NamePart := P;
end;
begin
Writeln (NamePart('C:Test.fil'));
end.
[[Category:String]]