Fórum Criar Tabela DBF #191655

Prezado,

Faça da seguinte forma:

Inclua no Uses os arquivos Db e DBTables

procedure TForm1.Button1Click(Sender: TObject);
Var
tabMinhaTab: TTable;
begin
tabMinhaTab:= TTable.Create(Self); //Cria o objeto na memória
With tabMinhaTab do
Begin
DatabaseName:= ´C:\Temp´; //Local onde será criado a tabela, pode ser utilizado um Alias ou Database para faciliar.
TableName:= ´MinhaTab.dbf´; //Nome do arquivo da Tabela
TableType:= ttFoxPro; //Tipo da Tabela - ttFoxPro = DBF
With FieldDefs.AddFieldDef do //Adiciona um campo
begin
Name:= ´MeuCampo1´; //Nome do Campo
DataType:= ftString; //Tipo do Campo
Size:= 20; //Tamanho
End; //Fim de adicionar um campo
//Existe outra forma de adicionar campos
With FieldDefs do
Begin
Add(´MeuCampo2´, ftInteger); //Adiciona um campo Inteiro
Add(´MeuCampo3´, ftString, 50); //Adiciona um campo Caracter
End;
CreateTable; //Cria a tabela no disco
End;
end;

Que Deus lhe abençoe!