If you have used Paradox tables in your development, you may have
run into the problem with data not getting posted, or indexes getting
corrupted.
The way to fix this is to put "DbiProcs" in the USES clause of the
Form or DataModule containing your TTable, and then calling
"dbiSaveChanges" in the AfterPost event.
unit MBTable;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, dbiProcs;
type
TMBTable = class(TTable)
private
{ Private declarations }
protected
{ Protected declarations }
procedure DoAfterPost; override;
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementation
procedure TMBTable.DoAfterPost;
begin
inherited DoAfterPost;
dbiSaveChanges(Self.Handle);
end;
procedure Register;
begin
RegisterComponents('CSA', [TMBTable]);
end;
end.