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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м (Текст программы)
Строка 14: Строка 14:
  
 
  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
  
 
= Смотрите также =
 
= Смотрите также =

Версия 09:38, 8 сентября 2016

NICE_PATH - это функция из справочника R266

NICE_PATH([Путь доступа = OpDataPath])

Убирает лишние пробелы и оставляет ровно один \ в конце пути (вместо strtran(ss+'\', '\\' '\'))

Пример

Nice_path( 'D:' )

08-09-2016 9-39-04.png

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

Parameters  raw_path:=OpDataPath
if  rat('\', result:=atr(raw_path))!=len(result);  result:=result+'\';  endif

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

Trim_DelSl

Функции Delphi

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