EXTRACTFILENAME — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
Строка 7: Строка 7:
 
= Текст программы =  
 
= Текст программы =  
  
  parameters  path:=''
+
  parameters  path:=""
 
   
 
   
 
  local  rch,i
 
  local  rch,i
Строка 18: Строка 18:
 
   endif
 
   endif
 
  next
 
  next
 +
 +
= Смотрите также =
 +
[[Функции Delphi]]
 +
 +
[[Полезные функции]]

Версия 12:16, 24 марта 2017

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

Извлечение имени из каталога

EXTRACTFILEDRIVE(директорий)

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

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

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