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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Смотрите также)
м
Строка 1: Строка 1:
IS_FILE - это функция, описанная в справочнике [[R266]]
+
[[IS_FILE]] - это функция, описанная в справочнике [[R266]]
 
+
Существует ли файл ?
Существует ли файл ?
+
[[IS_FILE]]( _name,  _date  [, _path := Opdatapath ]  [, _is_year := false ] )
 
+
IS_FILE(_name,  _date  [, _path := Opdatapath ]  [, _is_year := false ])
+
  
 
_name    - Первые 4 буквы ('DOCS','PRVS','DOCP')
 
_name    - Первые 4 буквы ('DOCS','PRVS','DOCP')
Строка 19: Строка 17:
 
   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

Версия 12:57, 4 мая 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