Версия 09:23, 11 мая 2017

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

Смотрите также

Полезные функции

Функции Delphi