简单问题：如何操作DBF?(50分)

1.如何新建DBF。
2.如何真正删除DBF里的记录。

create table "D:/test.dbf" (...)
这个语句就可以建立的呀。
至于真正删除，就是把dbf压缩一下，我给你找一下算法，好想见到过，没有记住

1． 对于dBase和Paradox库，其Pack原理是不同的：
如果是Paradox 表, 必须调用 DbiDoRestructure,重建数据库结构；
如果是 dBASE 表, 只需要调用DbiPackTable。
2． 在做Pack删除时，必须以独占方式打开数据库时。

implementation
　　　uses BDE;//做PACK必须引用次单元里的函数
　　　{$R *.DFM}
　　　　procedure TfrmPack.FormCreate(Sender: TObject);
　　　　var
　　　　　DBName:String;
　　　　begin
　　　　DBName:=ExtractFilePath(Application.ExeName);//得到数据库的位置
　　　　　{设置Table}
　　　　　　tblDBASE.DatabaseName:=DBName;
　　　　　　tblParadox.DatabaseName:=DBName;
　　　　　　tblDBASE.TableName:=’dbsTest.dbf’;
　　　　　　tblParadox.TableName:=’pdxTest.db’;
　　　　　　tblDBASE.Active:=True;
　　　　　　tblParadox.Active:=True;
　　　　　　end;
　　　　　{物理删除数据库记录Pack a Paradox or dBASE table}
　　　　　　// The table must be opened execlusively before calling this procedure...
　　　　　　procedure TFrmPack.PackTable(FTable: TTable);
　　　　　　var
　　　　　　　Props: CURProps;
　　　　　　　　hDb: hDBIDb;
　　　　　　　TableDesc: CRTblDesc;
　　　　　　begin
　　　　　　　FTable.Active := False;
　　　　　　　{当数据库打开失败时,这个循环语句能够让用户重试}
　　　　　　　repeat
　　　　　　　try
　　　　　　　　FTable.Exclusive := True;
　　　　　　　　FTable.Active := True;
　　　　　　　　{如果正常打开数据库,则退出循环}
　　　　　　　　Break;
　　　　　　　　except
　　　　　　　　on EDatabaseError do
　　　　　　　　if Application.MessageBox(
　　　　　　　　　’以独占方式打开数据库时,出现错误---重试否?’,
　　　　　　　　　’数据库错误’,
　　　　　　　　　MB_OKCANCEL + MB_DEFBUTTON1) <> IDOK then
　　　　　　　　　Exit;
　　　　　　　　end;
　　　　　　　　until False;
　　　　　　　try
　　　　　　　　{Check()用于校正和报告DBI底层错误;DbiGetCursorProps()用于取表光标属性}
　　　　　　　　Check(DbiGetCursorProps(FTable.Handle, Props));// 获得表的属性已得到表的类型
　　　　　　　　{如果是Paradox 表, 必须调用 DbiDoRestructure,重建数据库结构}
　　　　　　　　　if (Props.szTableType = szPARADOX) then
　　　　　　　　　　begin
　　　　　　　　　　　FillChar(TableDesc, sizeof(TableDesc), 0);
　　　　　　　　　　　{从数据表光标获取数据库句柄}
　　　　　　　　　　Check(DbiGetObjFromObj(hDBIObj(FTable.Handle), objDATABASE, hDBIObj(hDb)));
　　　　　　　　　　{设置表的描述结构的Name/Type/bPack属性}
　　　　　　　　　　　StrPCopy(TableDesc.szTblName, FTable.TableName);
　　　　　　　　　　　StrPCopy(TableDesc.szTblType, Props.szTableType);
　　　　　　　　　　　TableDesc.bPack := True;
　　　　　　　　　　　{关闭表并调用api}
　　　　　　　　　　　　FTable.Close;
　　　　　　　　　　　　Application.ProcessMessages;
　　　　　　　　　　　　Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, False));
　　　　　　　　　　　　Application.ProcessMessages;
　　　　　　　　　　　　FTable.Open;
　　　　　　　　　　　　end
　　　　　　　　　　　{ 如果是 dBASE 表, 只需要调用DbiPackTable...}
　　　　　　　　　　else
　　　　　　　　　　　if (Props.szTableType = szDBASE) then
　　　　　　　　　　　　begin
　　　　　　　　　　　　　Application.ProcessMessages;
　　　　　　　　　　　　　Check(DbiPackTable(FTable.DBHandle, FTable.Handle, nil, szDBASE, True));
　　　　　　　　　　　　　Application.ProcessMessages;
　　　　　　　　　　　　end
　　　　　　　　　　{不是dBase和Paradox表}
　　　　　　　　　　else
　　　　　　　　　　　raise EDatabaseError.Create(’数据库必须是 Paradox 或者 dBASE 类型,才能进行物理删除操作!!’);
　　　　　　　　　　　finally
　　　　　　　　　　　FTable.Active := False;
　　　　　　　　　　　FTable.Exclusive := False;
　　　　　　　　　　　FTable.Active := True;
　　　　　　　　　　end;
　　　　　　　　　end;

　　procedure TfrmPack.BitBtndBaseClick(Sender: TObject);
　　　begin
　　　　if OpenPictureDlg.Execute then
　　　　　DBImage1.Picture.LoadFromFile(OpenPictureDlg.FileName);
　　　　end;
　　procedure TfrmPack.BitBtnParadoxClick(Sender: TObject);
　　　begin
　　　　if OpenPictureDlg.Execute then
　　　　　DBImage2.Picture.LoadFromFile(OpenPictureDlg.FileName);
　　　end;
　　procedure TfrmPack.BitBtnPackdBASEClick(Sender: TObject);
　　　begin
　　　　PackTable(tbldBASE);//物理删除dDBSE库
　　　end;
　　procedure TfrmPack.BitBtnPackParadoxClick(Sender: TObject);
　　　begin
　　　　PackTable(tblParadox);//物理删除Paradox库
　　end;