根据一个表生成一个空的表结构

下面的代码演示了如何利用一个已有的表生成一个新的表结构！原来的可以有数据，生成的新的表是空的！

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;