Правила форума
StrRScan (функция) (модуль Strings)Язык:
Русский
English
StrRScan (функция) (модуль Strings)
Возвращает указатель на последнее вхождение символа в строку.
Объявление
Function StrRScan(Str : PChar; Chr : Char) : PChar;
Режим
Windows, Real, Protected
Замечания
Функция StrRScan возвращает указатель на последнее вхождение символа CHR в строку Str. Если символ CHR не входит в строку Str, то StrRScan возвращает NIL. Признак конца строки рассматривается как часть строки.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для функции 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;
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;
::
::
::
