Советы по Delphi

         

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


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

    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;

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



Содержание раздела