Как показать удалённые записи

Previous  Top  Next

    
 

 

 

Code:

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;

 

©Drkb::02569

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php