在Delphi中如何动态创建dbf数据库（一）？

table2.Close;
table2.Active:=false;
table2.Exclusive:=true;
table2.TableName:='h:\gzkd\sds';
table2.TableType:=ttFOXPRO;
with table2.FieldDefs do
begin
clear;
with addfielddef do
begin
name:='bh';
datatype:=FTSTRING;
size:=6;
end;
with addfielddef do
begin
name:='xm';
datatype:=FTSTRING;
size:=8;
end;
with addfielddef do
begin
name:='ms';
datatype:=FTSTRING;
size:=10;
end;
with addfielddef do
begin
name:='dw';
datatype:=FTSTRING;
size:=20;
end;
with addfielddef do
begin
name:='gzsr';
datatype:=FTfloat;
end;
with addfielddef do
begin
name:='gwjt';
datatype:=FTfloat;
end;
with addfielddef do
begin
name:='shbt';
datatype:=FTfloat;
end;
with addfielddef do
begin
name:='qtsr';
datatype:=FTfloat;
end;
with addfielddef do
begin
name:='srze';
datatype:=FTfloat;
end;
with addfielddef do
begin
name:='jsze';
datatype:=FTfloat;
end;
with addfielddef do
begin
name:='yjsds';
datatype:=FTfloat;
end;
with addfielddef do
begin
name:='yijsds';
datatype:=FTfloat;
end;
with addfielddef do
begin
name:='bjsds';
datatype:=FTfloat;
end;
with addfielddef do
begin
name:='ny';
datatype:=FTfloat;
end;
end;
table2.CreateTabe;