Правила форума
StrRScan.PASЯзык:
Русский
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;
::
::
::
