Fórum Criar um table dinamicamente com estrutura dum já existente! #285956

   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´;