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

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 ;

[Оглавление]