"Советы по Delphi. Версия 1.0.6" - читать интересную книгу автора (Озеров Валентин)

Создание

Создание db-файла во время работы приложения

uses DB, DBTables, StdCtrls;

procedure TForm1.Button1Click(Sender: TObject);

var

 tSource, TDest: TTable;

begin

 TSource:= TTable.create(self);

 with tsTSource 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;