Otevřít hlavní menu

StrRScan

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.