如何在程序中创建一个FOXBASE格式的数据表（DBF格式），并往里写数据？

Question

with Table1 do 
begin
  Active := False;  
  DatabaseName := 'DBDEMOS';
  TableType := ttDBase;
  TableName := 'taxi';  if not Table1.Exists then
  begin
    with FieldDefs do
    begin
      Clear;
      with AddFieldDef do
      begin
        Name := 'Field1';
        DataType := ftInteger;
        Required := True;
      end;      with AddFieldDef do
      begin
        Name := 'Field2';
        DataType := ftString;
        Size := 30;
      end;
    end;
    CreateTable;
  end;
end;

Answer 1

你的方法可行，不过我需创建一个字段，长度为12，小数位为2（在PARADOX中字段类型为N），怎么办？