如何将DBF文件的记录作物理删除!!! uses BDE用DbiPackTable()函数。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBTables, StdCtrls,BDE;type TForm1 = class(TForm) Button1: TButton; Table1: TTable; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);begin table1.DatabaseName:='C:\Test'; Table1.TableName:='Test.dbf'; Table1.TableType:=ttDbase; if table1.Active then table1.Active:=False; table1.Exclusive:=True; Table1.Active:=True; Check(DbiPackTable(Table1.DBhandle,Table1.Handle,nil,nil,False)); Table1.Active:=False; Table1.Exclusive:=False; Table1.Active:=True;end;end. QQWeb输入法(QQ云输入法)悄然发布 如何根据Record的字段名称赋值 dephi 中 Sender 的意义??? 放分庆祝月亮MM结婚大喜!! 执行sql语句时显示进度条 从文本文件中取一段文本? COM接口问题 關與DBGrid的問題 我想将用sql查找到的记录送到打印机,可不知道错在那里,请进来看看! 一个excel问题: delphi可作示波器嗎? 好象被宝兰愚弄
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, StdCtrls,BDE;type
TForm1 = class(TForm)
Button1: TButton;
Table1: TTable;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
table1.DatabaseName:='C:\Test';
Table1.TableName:='Test.dbf';
Table1.TableType:=ttDbase;
if table1.Active then
table1.Active:=False;
table1.Exclusive:=True;
Table1.Active:=True;
Check(DbiPackTable(Table1.DBhandle,Table1.Handle,nil,nil,False));
Table1.Active:=False;
Table1.Exclusive:=False;
Table1.Active:=True;end;end.