NICE PATH — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м |
||
(не показана одна промежуточная версия этого же участника) | |||
Строка 1: | Строка 1: | ||
− | NICE_PATH - это функция из справочника [[R266]] | + | [[NICE_PATH]] - это функция из справочника [[R266]] |
− | + | Убирает лишние пробелы и оставляет ровно один \ в конце пути (вместо strtran(ss+'\', '\\' '\')) | |
− | + | [[NICE_PATH]]( [Путь доступа = OpDataPath] ) | |
− | + | ||
− | Убирает лишние пробелы и оставляет ровно один \ в конце пути (вместо strtran(ss+'\', '\\' '\')) | + | |
− | + | ||
= Пример = | = Пример = | ||
− | + | [[NICE_PATH]]( 'D:' ) | |
− | + | ||
− | + | ||
[[Файл:08-09-2016 9-39-04.png]] | [[Файл:08-09-2016 9-39-04.png]] | ||
− | + | = Текст = | |
− | = Текст | + | |
− | + | ||
Parameters raw_path:=OpDataPath | Parameters raw_path:=OpDataPath | ||
− | if [[rat]]('\', result:=[[atr]](raw_path))!=len(result); result:=result+'\'; endif | + | if [[rat]]('\', result:=[[atr]](raw_path))!=[[len]](result); result:=result+'\'; endif |
− | + | ||
= Смотрите также = | = Смотрите также = | ||
− | + | [[Полезные функции]] | |
− | [[ | + | |
[[Функции Delphi]] | [[Функции Delphi]] | ||
− | [[ | + | [[Trim_DelSl]] |
Текущая версия на 15:28, 13 июня 2017
NICE_PATH - это функция из справочника R266
Убирает лишние пробелы и оставляет ровно один \ в конце пути (вместо strtran(ss+'\', '\\' '\'))
NICE_PATH( [Путь доступа = OpDataPath] )
Пример
NICE_PATH( 'D:' )
Текст
Parameters raw_path:=OpDataPath if rat('\', result:=atr(raw_path))!=len(result); result:=result+'\'; endif