Self.Table1.Close;
      Self.Table1.Active :=False;
      Self.Table1.DisableControls;
      Self.Table1.DatabaseName:=Path;
      Self.Table1.TableName:=Fname;
      Self.Table1.TableType :=ttDBase;//与FoxPro的不同
      Self.Table1.FieldDefs.Clear;
      Self.Table1.IndexDefs.Clear;
      BBList.DelimitedText:=llist.Strings[0];
      Self.Table1.FieldDefs.Add(BBList[0],ftInteger,0,True);//与FoxPro的不同
      for i:=1 to BBList.Count-1 do
      begin
        Self.Table1.FieldDefs.Add(BBList[i],ftFloat,0,True);
      end;
      Self.Table1.CreateTable;

table1.Close;
  table1.Active:=false;
  table1.Exclusive:=true;
  table1.TableName:='c:\a.dbf';    
  table1.TableType:=ttFoxPro;//不同之处

  table1.FieldDefs.Clear;
    for i:=1 to 10 do
    begin
      table1.FieldDefs.Add('ff'+inttostr(i),ftString,6);   // 不同支出
    end;
    table1.CreateTable;
    Table1.Active :=True;
    Table1.Append;
    Table1.Fields[1].AsString:='2.31';
    Table1.Post;