EXTRACTFILENAME — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 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
