Mega Code Archive

 

Categories / Delphi / ADO Database

 

Show a TTables deleted records

Title: show a TTable's deleted records ? 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;