EXTRACTFILENAME

ExtractFileName - это функция

Текст программы

parameters  path:=

local  rch,i
result:=path

for i:=len(path) to 1 step -1
  if copy(path,i,1)='\' or copy(path,i,1)='/'
    result:=Right(path,len(path)-i)
    return
  endif
next