Создание таблицы по образу и подобию

Советы » Таблицы » Создание таблицы по образу и подобию

Создайте во время выполнения программы пустую таблицу, скопируйте структуру существующей, включая первичный индекс. На практике это выглядит примерно так:

var

Table2 : TTable; begin

Table1.FieldDefs.Update; Table1.IndexDefs.Update; Table2 := TTable.Create(nil

); Table2.DatabaseName := Table1.DatabaseName; Table2.TableName := 'MyTable'; Table2.TableType := Table1.TableType; Table2.FieldDefs.Assign(Table1.FieldDefs); Table2.IndexDefs.Assign(Table1.IndexDefs); Table2.CreateTable ; end

;

...один способ сделать это.

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com