如何生成DBF文件
请教高手：在ActiveX中，怎样动态生成一个DBF文件，并设置其字段，并将已经选取的记录集，插入该文件中，保存。谢谢 问题点数：0、回复次数：2Top
1 楼maozefa（阿发伯）回复于 2003-11-02 00:03:47 得分 0
对你的意思不完全明白，下面的例子可以动态创建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;Top
2 楼maozefa（阿发伯）回复于 2003-11-02 00:07:29 得分 0
更正和补充：
Table.FieldDefs.Add('DATA', ftFloat);可能不能被识别，可以改为：
Table.FieldDefs.Add('DATA', ftBCD);
上面的例子会形成d:\test.dbf文件。Top
