如何生成DBF文件

Question

请教高手：在ActiveX中，怎样动态生成一个DBF文件，并设置其字段，并将已经选取的记录集，插入该文件中，保存。谢谢

Answer 1

对你的意思不完全明白，下面的例子可以动态创建DBF文件，供参考：procedure TForm1.Button1Click(Sender: TObject);
var
  Table: TTable;
begin
   Table := TTable.Create(Self);
   try
     Table.DatabaseName := 'D:\';
     Table.TableType := ttDBase;
     Table.TableName := 'test.dbf';
     Table.FieldDefs.Add('CODE', ftString, 4);
     Table.FieldDefs.Add('NAME', ftString, 16);
     Table.FieldDefs.Add('DATA', ftFloat);
     Table.CreateTable;
   finally
     Table.Free;
   end;
end;

Answer 2

更正和补充：
    Table.FieldDefs.Add('DATA', ftFloat);可能不能被识别，可以改为：
    Table.FieldDefs.Add('DATA', ftBCD);上面的例子会形成d:\test.dbf文件。