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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Пример)
м (Пример)
Строка 6: Строка 6:
 
  fld := ' _1,N,5; '
 
  fld := ' _1,N,5; '
 
  try
 
  try
   _ := CreateTmpFile( fld, '_', ~IsFreeDel := true )
+
   _ := [[CreateTmpFile]]( fld, '_', ~IsFreeDel := true )
 
   ( _ )->( [[CopyTableStructure]]( 'z1.adt' ) )
 
   ( _ )->( [[CopyTableStructure]]( 'z1.adt' ) )
 
  finally
 
  finally
   CloseTable( _ )
+
   [[CloseTable]]( _ )
 
  end
 
  end
  

Версия 09:44, 5 мая 2017

CopyTableStructure - это процедура

Копирование структуры из текущей таблицы в файл DestFile

CopyTableStructure( <DestFile> )

Пример

local fld, _
fld := ' _1,N,5; '
try
  _ := CreateTmpFile( fld, '_', ~IsFreeDel := true )
  ( _ )->( CopyTableStructure( 'z1.adt' ) )
finally
  CloseTable( _ )
end

В результате в папке TempPath создается файл

22-08-2016 8-11-27.png

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

Функции Delphi

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