Crear tabla DB

[userlazarus]

Hola,

Intento crear una tabla Dbf y me da error en el tipo de campo (este lo recojo de un TEdit. El código que empleo es el siguiente:

procedure TForm1.Button2Click(Sender: TObject);
begin
basedatos := TDbf.Create(nil);
try
basedatos.TableLevel := 4
basedatos.Exclusive := True;
basedatos.TableName := Edit1.Text+'.dbf';
With basedatos.FieldDefs do begin
Add('nombre',Edit1.Text,80,True);
Add('Apellidos',Edit2.Text,80,True);
End;
basedatos.CreateTable;
basedatos.Open;
basedatos.Close;
finally
basedatos.Free;
end;
end;

Gracias

[nemesio]

¿Qué colocas en el Edit que recoge el Tipo de Campo?

[ContraVeneno]

Pues el detalle esta en que utlilizas el mismo edit1 para el nombre de la base de datos y para definir el tipo de dato del primer campo.

como ya dijo nemesio, habría que ver que pones en el edit1 y en el edit2, que se supone debería ser un tipo de datos válido.

[userlazarus]

En el TEdit pongo por ejemplo ftString y me sigue dando tipo de datos
erroneo.
Utilizo lo siguiente:


procedure TForm1.Button2Click(Sender: TObject);
begin
basedatos := TDbf.Create(nil);
try
basedatos.TableLevel := 4
basedatos.Exclusive := True;
basedatos.TableName := Edit1.Text+'.dbf';
With basedatos.FieldDefs do begin
Add('nombre',Edit2.Text,80,True);
Add('Apellidos',Edit3.Text,80,True);
End;
basedatos.CreateTable;
basedatos.Open;
basedatos.Close;
finally
basedatos.Free;
end;
end;

[userlazarus]

:confused:
Upps..., alguien sabe lo que me falla..?
Gracias

[nemesio]

Ok, ya veo cual es tu error. Cuando recibes por teclado el tipo de Datos, estás recibiendo un Texto, el ftString es una variable de tipo TFieldType que se encuentra en el Unit "DB". Tienes que saber diferenciar que es un texto y que es una Variable. Te recomiendo lo siguiente: usa en vez de un Edit un ComboBox en el cual tendrás los tipos de campos que quieras usar. Cuando escojas uno entonces harás lo siguiente:
if combobox1.ItemIndex=0 then
Add('nombre',ftString,80,True);
claro que es solo una idea ya que ese codigo lo puedes optimizar. Prueba y verás que tu problema estará resuelto.

[userlazarus]

Ok.
Solucionado. Muchas gracias