Создание таблицы по образу и подобию
Создайте во время выполнения программы пустую таблицу, скопируйте структуру
существующей, включая первичный индекс. На практике это выглядит примерно
так:
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;
|
...один способ сделать это.
|
