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[]; Self.Table1.FieldDefs.Add(BBList[],ftInteger,,True);//与FoxPro的不同 for i:=1 to BBList.Count-1 do begin Self.Table1.FieldDefs.Add(BBList[i],ftFloat,,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;
来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/26692020/viewspace-3145714/ ,如需转载,请注明出处,否则将追究法律责任。