unit TableAF;
interface
uses
SysUtils, Classes, DB, DBTables;
type
TTableAF = class(TTable)
private
FAutoFlushBuffers: Boolean;
procedure SetAutoFlushBuffers(const Value: Boolean);
protected
procedure DoAfterPost; override;
public
published
property AutoFlushBuffers: Boolean read FAutoFlushBuffers write SetAutoFlushBuffers default True;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('MyBDE', [TTableAF]);
end;
procedure TTableAF.DoAfterPost;
begin
inherited;
if FAutoFlushBuffers then
Self.FlushBuffers;
end;
procedure TTableAF.SetAutoFlushBuffers(const Value: Boolean);
begin
FAutoFlushBuffers := Value;
end;
end.