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;

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

© GAiST 2004 - 2008