database1.DriverName:='STANDARD';
database1.DatabaseName:='vfo';
database1.params.add('PATH=d:/');
database1.params.add('DEFAULT DRIVER=PARADOX');
database1.params.add('ENABLE BCD=FALSE');
database1.connected:=true;
table2.Active:=false;
with table2 do
begin
active:=false;
DatabaseName :='vfo';
tablename:='zyf.dbf';
TableType :=ttPARADOX;
with FieldDefs do begin
Clear;
with AddFieldDef do begin
Name := '1';
DataType := ftstring;
size:=10;
end;
createtable;
end;
end;
table2.Active:=true;
table2.Append;
table2.FieldValues['1']:='2002-01-02';
table2.post;