Fórum Como grava dados vindos de um dbf num cds p/ salvá-lo em xml #319079

   // Produtos 
   cds.Open ;

   // Aqui não consigo criar os fields no cds
   cds.Fields.Add(´codpro´);
   cds.Fields.Add(´nomepro´);
   cds.Fields.Add(´preco´);

   Tabela.TableName := ´produtos.dbf´;
   Tabela.Active    := True;
   Tabela.First;
   if Tabela.RecordCount > 0 then
      begin
         ProgressBar.Max := Tabela.RecordCount;
         while not Tabela.Eof do
            begin
               ProgressBar.Position := ProgressBar.Position + 1;
               cds.Append;
               cds.Fields[0].AsString := Tabela.FieldValues[´_codpro´];
               cds.Fields[1].AsString := Tabela.FieldValues[´_nomepro´];
               cds.Fields[2].AsString := Tabela.FieldValues[´_pvenda´];
               Tabela.Next ;
            end;
      end;
   cds.SaveToFile(´produtos.xml´);
   cds.Close ;