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

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

Версия 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

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