1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

// RecordCount = 3

AppendRecord

// RecordCount = 4 

// RecNo=4

Delete

// RecordCount = 3
// RecNo=3

AppendRecord

// RecordCount = 4
// RecNo = 5  !!! (anstatt 4)

Delete

// RecordCount = 3
// RecNo=3

AppendRecord

// RecordCount = 4
// RecNo = 6 (anstatt 4)					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

function dgPackParadoxTable(Tbl: TTable; Db: TDatabase): DBIResult;

{ Packs a Paradox table by calling the BDE DbiDoRestructure
function. The TTable passed as the first parameter must
be closed. The TDatabase passed as the second parameter
must be connected. }
var
  TblDesc: CRTblDesc;
begin
  Result := DBIERR_NA;
  FillChar(TblDesc, SizeOf(CRTblDesc), 0);
  StrPCopy(TblDesc.szTblName, Tbl.TableName);
  TblDesc.bPack := True;
  Result        := DbiDoRestructure(Db.Handle, 1, @TblDesc, nil, nil, nil, False);
end;

function dgPackDbaseTable(Tbl: TTable): DBIResult;

{ Pack a dBASE table by calling DbiPackTable. The table
passed as a parameter will be opened if it isn't open. }
begin
  Result := DBIERR_NA;
  if Tbl.Active = False then
    Tbl.Open;
  Result := DbiPackTable(Tbl.DBHandle, Tbl.Handle,
    nil, nil, True);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

function dgPackDbaseTable(Tbl: TTable): DBIResult;

{ Pack a dBASE table by calling DbiPackTable. The table
passed as a parameter will be opened if it isn't open. }
begin
  Result := DBIERR_NA;
  if Tbl.Active = False then
    Tbl.Open; // Das löst eine Exception aus: 'Tabelle ist in Gebrauch'
  Result := DbiPackTable(Tbl.DBHandle, Tbl.Handle,
    nil, nil, True);
end;

procedure TForm1.DatenTabBeforeScroll(DataSet: TDataSet);
var
   i,i1:integer;
begin
 for i:=0 to DatenTab.FieldCount-1 do
   if DatenTab.Fields[i].AsString<>'' then exit;
 DatenTab.Edit;
 DatenTab.Fields[0].AsString:='d';
 DatenTab.Delete;

 DatenTab.Active := false;
 DatenTab.Exclusive := true;

 dgPackDbaseTable(DatenTab);

 DatenTab.Active := false;
 DatenTab.Exclusive := false;
 DatenTab.Active := true;
end;