No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Duplicar una TTable.

delphi

TableSource: TTable;
  TableTarget: TTable;
  //  ...
  TableSource.TableName := 'Source.db';
  TableTarget.TableName := 'Target.db';
  TableSource.StoreDefs := True;
  TableTarget.StoreDefs := True;
  TableSource.FieldDefs.Update;
  TableSource.IndexDefs.Update;
  TableTarget.FieldDefs := TableSource.FieldDefs;
  TableTarget.IndexDefs := TableSource.IndexDefs;
  TableTarget.CreateTable;

Saludos!