Советы по 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]
