Creando una tabla paradox

[__cadetill]

Hola

No veo que asignes el DatabaseName del TTable, que no venga por ahí el error.

Por otro lado, la verdad es que nunca he creado los campos e índices con AddFieldDef o AddIndexDef, siempre he usado el método Add (tanto de FieldDefs como de IndexDefs) y nunca he tenido problemas. Si formato sería...

Código Delphi [-]
//***** Definimos los campos que tendrá la nueva tabla *****//
Table2.FieldDefs.Clear;
Table2.FieldDefs.Add('Nombre', ftString, 10);
Table2.FieldDefs.Add('Formato', ftString, 10);
 
//***** Definimos la clave primaria de la tabla *****//
Table2.IndexDefs.Clear;
Table2.IndexDefs.Add('', 'Nombre', [ixPrimary]);

Se que es lo mismo y que debería de funcionar a tu manera, pero pueba esto

[marto]

Pues yo no veo tan claro que los dos códigos hagan lo mismo

Me voy a tirar a la piscina a riesgo de que no haya agua, ya que no tengo aqui Delphi y yo también lo he hecho siempre como comenta Cadetill.
Por lo que digo que no me parece lo mismo es porque AddIndexDef tiene toda la pinta de ser un método que añada elíndice y devuelva un puntero al mismo. Si llamas al método más de una vez, añadirás más de un indice. El mismo cuento lo puedes aplicar a AddFieldDef.

Si no estoy desvariando y la cosa funciona como he dicho (que no lo sé), podría funcionar lo siguiente:

Código Delphi [-]
  with Table2.FieldDefs.AddFieldDef do
  begin
    Name:='Nombre';
    DataType:=ftString;
    Required:=true;
  end;

Con eso creas uno de los campos... para el resto copy&paste

[/delphi]

[weke]

Muchas gracias. Lo he hecho de la forma que me indicó cadetill, bueno, como lo haceis los 2 y de esa manera si que me la crea bien.

La otra opción que me indicas, marto, si me da tiempo a probarla ya te dire algo por aquí, aunque si no recuerdo mal, me parece haberlo visto en algún ejemplo, o algo similar. No estoy muy seguro, pero bueno.

Un saludo y gracias otra vez a todos.