|
Hola.
La version de Dbase que uso es DBASE IV, e incluso lo he intentado con Visula DBase 5.
La forma de crear una tabla Dbase con Delphi, lo hago de la siguiente manera:
//Ubicacion de la tabla
F_Test_C.Tabla.DatabaseName := Directorio;
//Facilitamos el nombre de la nueva tabla y su tipo
F_Test_C.Tabla.TableName := FileName_Dbf;
F_Test_C.Tabla.TableType := TtDBase;
//Usamos la propiedad FieldDefs para definir los campos q contendrá la tabla
With F_Test_C.Tabla.FieldDefs Do Begin
Clear;
//Declaracion de los campos, con sus tipos y tamaños. El valor True/False nos indica si su valor será requerido siempre
Add('NUM_PREG', ftString, 2 , True);
Add('PREGUNTA', ftMemo , 1 , False);
Add('RESP_A' , ftMemo , 1 , False);
Add('RESP_B' , ftMemo , 1 , False);
Add('RESP_C' , ftMemo , 1 , False);
Add('FOTO' , ftString, TFoto_Const, False); //25
End;
//borramos indices anteriores
F_Test_C.Tabla.IndexDefs.Clear;
//Usamos la propiedad IndexDefs xa definir los índices.
F_Test_C.Tabla.IndexDefs.Add ('', 'Num_Preg', [ixUnique]);
//Creamos la tabla, despues de definir los datos
F_Test_C.Tabla.CreateTable;
|