strrscan.pas

 {StrRScan.PAS}
 
 { Пример программы для функции 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;