clonetable

Q: How can I create an empty table that has the structure of another table?

uses DB, DBTables, StdCtrls;

procedure TForm1.Button1Click(Sender: TObject);
var
tSource, TDest: TTable;
begin
TSource := TTable.create(self);
with TSource do begin
    DatabaseName := 'dbdemos';
    TableName := 'customer.db';
    open;
end;
TDest := TTable.create(self);
with TDest do begin
    DatabaseName := 'dbdemos';
    TableName := 'MyNewTbl.db';
    FieldDefs.Assign(TSource.FieldDefs);
    IndexDefs.Assign(TSource.IndexDefs);
    CreateTable;
end;
TSource.close;
end;