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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
Строка 1: Строка 1:
ExtractFileName - это функция
+
[[EXTRACTFILENAME]] - это функция
 +
Извлечение имени из каталога
 +
[[EXTRACTFILENAME]]( директорий )
  
Извлечение имени из каталога
+
= Текст =  
 
+
EXTRACTFILEDRIVE(директорий)
+
 
+
= Текст программы =  
+
  
 
  parameters  path:=""
 
  parameters  path:=""
Строка 12: Строка 10:
 
  result:=path
 
  result:=path
 
   
 
   
  for i:=len(path) to 1 step -1
+
  for i:=[[len]](path) to 1 step -1
   if copy(path,i,1)='\' or copy(path,i,1)='/'
+
   if [[copy]](path,i,1)='\' or [[copy]](path,i,1)='/'
     result:=Right(path,len(path)-i)
+
     result:=[[Right]](path,[[len]](path)-i)
 
     return
 
     return
 
   endif
 
   endif

Версия 09:22, 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

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