TAKE FROM FTP4 — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (Текст)
 
Строка 19: Строка 19:
 
   
 
   
 
  temp_path := Nice_Path( temp_path )
 
  temp_path := Nice_Path( temp_path )
  WRITELINETOTXTFILE( temp_path, name, 'окончание приема' )
+
  [[WRITELINETOTXTFILE]]( temp_path, name, 'окончание приема' )
 +
 
 
= Смотрите также =
 
= Смотрите также =
 
[[Полезные функции]]
 
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]

Текущая версия на 17:06, 26 февраля 2018

TAKE_FROM_FTP4 - это программа из справочника R266

Конец

TAKE_FROM_FTP4()

Текст

local temp_path, aa, name

name := 'Fill_and_dance.txt'

temp_path := Nice_Path( ExpandUNCFileName( TempPath ) )
aa := Rat( '\', temp_path )
temp_path := Left( temp_path, aa - 1 )
aa := Rat( '\', temp_path )
temp_path := Left( temp_path, aa - 1 )
temp_path := Nice_Path( temp_path )
temp_path := temp_path + '_'
if !DirectoryExists( temp_path )
  CreateDir( temp_path, true )
endif

temp_path := Nice_Path( temp_path )
WRITELINETOTXTFILE( temp_path, name, 'окончание приема' )

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

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

Функции Delphi