Delphi 1

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

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

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]