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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м (Текст)
Строка 19: Строка 19:
 
   result:=false
 
   result:=false
 
  else
 
  else
   result:=File( ExpandUncFileName( Nice_path(_path)+ _name + ;
+
   result:=File( [[ExpandUncFileName]]( Nice_path(_path)+ _name + ;
 
     Ret_f_ext( _date, _is_year )+".ADT" ) )
 
     Ret_f_ext( _date, _is_year )+".ADT" ) )
 
  endif
 
  endif

Версия 10:42, 3 марта 2017

IS_FILE - это функция, описанная в справочнике R266

Существует ли файл ?

IS_FILE(_name, _date [, _path := Opdatapath ] [, _is_year := false ])

_name - Первые 4 буквы ('DOCS','PRVS','DOCP')

_date - Дата

_path - Путь к файлу, по умолчанию OpdataPath

_is_year - Годовой ли ? По умолчанию - Нет

Текст

parameters _name, _date, _path := OpdataPath, _is_year := false

if Empty(_name) or Empty(_date)
  result:=false
else
  result:=File( ExpandUncFileName( Nice_path(_path)+ _name + ;
    Ret_f_ext( _date, _is_year )+".ADT" ) )
endif

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

Функции Delphi

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