Primero añadiremos un control TTable al formulario, un botón y en el evento Click del mismo pondremos lo siguiente:

 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;

Publicado el: 2003-09-11