...gelöschte Einträge eines TTables anzeigen ?
Autor: Simon Grossenbacher
procedure DeletedRecords(Table: TTable; SioNo: Boolean);
begin
  Table.DisableControls;
  try
    Check(DbiSetProp(hDBIObj(Table.Handle), curSOFTDELETEON, Longint(SioNo)));
  finally
    Table.EnableControls;
  end;
  Table.Refresh;
end;
printed from
www.swissdelphicenter.ch
developers knowledge base