Функция StrRScan()

Модуль Strings

Возвращает указатель на последнее вхождение символа в строку.

Объявление:

Function StrRScan(Str : PChar; Chr : Char) : PChar;

Режим:

Windows,  Protected,  Real

Замечание:

Функция StrRScan возвращает указатель на последнее вхождение символа CHR в строку Str. Если символ CHR не входит в строку Str, то StrRScan возвращает NIL. Признак конца строки рассматривается как часть строки.

Пример:

 { Пример программы для функции StrRScan }
 
 { Возвращает указатель на строку, содержащую имя файла }
 
 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;