Crear tabla pdx a partir de dbf

[trex2000]

Saludos:
La verdad no se si ya pudiste resolver tu problema, apenas estoy viendo este hilo pero te voy a decir como resolvi esa situacion cuando me paso a mi, yo utilize el batchmove que viene en la paleta de delphi.

Espero te sirva.

[lbidi]

Gracias Trex2000. La verdad es que me he dedicado a otras cosas y no pude hacer y no pude hacer ninguna prueba mas.
Intentarte con lo tu me indicas y te aviso.

Salu2.

[marcoszorrilla]

Basándote en este ejemplo sacado de Trucomanía, creo que no te sería
dificil lograr lo que quieres.

procedure TForm1.Button1Click(Sender:TObject);
begin 
  if not Table1.Exists then 
  begin 
    Table1.Active       := FALSE; 
    {Aqui el Alias/Here, the alias}
    Table1.DatabaseName := 'Alias'; 
    Table1.TableType    := ttParadox; 
    {Aqui el nombre de la tabla/Here, the Table name}
    Table1.TableName    := 'Nombre de la Tabla'; 
    with Table1.FieldDefs do 
    begin 
      Clear; 
      Add('IntegerField', ftInteger,  0, FALSE); 
      Add('StringField' , ftString , 30, FALSE); 
      Add('LogicalField', ftBoolean,  0, FALSE); 
      Add('FloatField'  , ftFloat  ,  0, FALSE); 
      Add('DateField'   , ftDate   ,  0, FALSE); 
      Add('TimeField'   , ftTime   ,  0, FALSE); 
    end; 
    Table1.CreateTable; 
  end; 
end; 
 
 
 
Si quieres añadir algún indice, mirate la propiedad IndexDefs
que es similar a la FieldDefs que hemos usado.

Un Saludo.

[lbidi]

Gracias Marcos por tu respuesta.