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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Примеры)
м (Смотрите также)
 
(не показано 11 промежуточных версий этого же участника)
Строка 1: Строка 1:
AssignFile - это функция, описанная в файле [[QrAddFn.pas]]
+
[[ASSIGNFILE]] - это функция, описанная в файле [[QrAddFn.pas]]
 
+
По имени файла возвращает файловую переменную
AssignFile( <filename> )
+
[[ASSIGNFILE]]( <filename> )
 
+
По имени файла возвращает файловую переменную
+
 
+
 
= Примеры =
 
= Примеры =
 
+
  _file := [[ASSIGNFILE]]( path + name )
  _file := AssignFile( path + name )
+
  
 
  parameters path, name, str_line
 
  parameters path, name, str_line
Строка 13: Строка 9:
 
  aa := {}  
 
  aa := {}  
 
  try
 
  try
   log_file := '''AssignFile'''( path + name )
+
   log_file := [[ASSIGNFILE]]( path + name )
 
   if [[Empty]]( log_file )
 
   if [[Empty]]( log_file )
 
     return
 
     return
 
   endif
 
   endif
   TextReset( log_file )
+
   [[TextReset]]( log_file )
   while !TextEof( log_file )
+
   while ![[TextEof]]( log_file )
     Aadd( aa, ReadLn( log_file ) )
+
     Aadd( aa, [[ReadLn]]( log_file ) )
 
   end
 
   end
 
  finally
 
  finally
   if !Empty( log_file )
+
   if ![[Empty]]( log_file )
     CloseFile( log_file )
+
     [[CloseFile]]( log_file )
 
   endif
 
   endif
 
  end
 
  end
  Aadd( aa, Date() + ' ' + Time() + ' ' + str_line )  
+
  [[Aadd]]( aa, Date() + ' ' + Time() + ' ' + str_line )  
 
  [[WriteTxtFile]]( aa, name, path, true )
 
  [[WriteTxtFile]]( aa, name, path, true )
 
 
= Смотрите также =
 
= Смотрите также =
 
+
[[Полезные функции]]
[[WriteTxtFile]]
+
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]
  
[[Полезные функции]]
+
[[WRITETXTFILE]]

Текущая версия на 12:55, 2 марта 2018

ASSIGNFILE - это функция, описанная в файле QrAddFn.pas

По имени файла возвращает файловую переменную

ASSIGNFILE( <filename> )

Примеры

_file := ASSIGNFILE( path + name )
parameters path, name, str_line
local aa, log_file
aa := {} 
try
  log_file := ASSIGNFILE( path + name )
  if Empty( log_file )
    return
  endif
  TextReset( log_file )
  while !TextEof( log_file )
    Aadd( aa, ReadLn( log_file ) )
  end
finally
  if !Empty( log_file )
    CloseFile( log_file )
  endif
end
Aadd( aa, Date() + ' ' + Time() + ' ' + str_line ) 
WriteTxtFile( aa, name, path, true )

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

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

Функции Delphi

WRITETXTFILE