Criar um table dinamicamente com estrutura dum já existente!

Delphi

24/06/2005

bom dia pessoal
Eu sei como criar table dinamicamente.
O que preciso é criar um dinamicamente que tenha a mesma estrutura(fields,eventos,propriedades) dum TBlClientes que já exista.
Seria criar uma cópia!
alguem poderia me ajudar


abraço
Diogo


Diogoalles

Diogoalles

Curtidas 0

Respostas

Diogoalles

Diogoalles

24/06/2005

olá galera

ainda ñ consegui resolver

alguem poderia me ajudar

valeu
Diogo


GOSTEI 0
Diogoalles

Diogoalles

24/06/2005

bom dia pessoal

ainda estou com esse problema...

alguem teria uma dica / solução pra me passar?


GOSTEI 0
Andersongiacheto

Andersongiacheto

24/06/2005

Oi colega, não sei se você já conseguiu resolver o seu problema, mas acho que essa rotininha que utilizo pode ser útil para você :


   TBAux.close;
   WITH TBAux DO BEGIN
      ACTIVE    :=FALSE;
      TABLETYPE :=TTPARADOX;
      DATABASENAME := ´C:\TMP´;
      TABLENAME := ´ITEMTMP.DB´;
      WITH  FIELDDEFS DO BEGIN
         CLEAR;
         for i := 0 to DM.TBItenCart.FieldCount-1 do
                 // Nome do Campo                  Tipo do Campo                         Tamanho do Campo               Obrigatório
            ADD(DM.TBItenCart.FieldDefs.Items[I].Name,DM.TBItenCart.FieldDefs.Items[i].DataType,DM.TBItenCart.FieldDefs.Items[i].Size,FALSE);
      END;
      WITH INDEXDEFS DO BEGIN
         CLEAR;
         ADD(´´,´CONTROLE´,[IXPRIMARY,IXUNIQUE]);
         ADD(´ITENT01´,´PEDIDO;X;CODPRO´,[IXCASEINSENSITIVE]);
         ADD(´ITENT02´,´PEDIDO;X;SEQ´,[IXCASEINSENSITIVE]);
         ADD(´ITENT03´,´PEDIDO;X;CODPRO;TIPO´,[IXCASEINSENSITIVE]);
      END;
      CREATETABLE;
   END;
   TBAux.open;
   TBAux.INDEXNAME:=´ITENT02´;



GOSTEI 0
Diogoalles

Diogoalles

24/06/2005

olá Anderson
ainda não consegui resolver e não consegui entender mt bem a rotina!

eu precisaria duma rotina q fosse dinamica, onde eu passaria o nome do table e fosse criada uma cópia deste em runtime!

agradecido

Diogo


GOSTEI 0
POSTAR