Показать удаленные записи таблицы

Благодарю за поддержку!

		Новости сайта
		Новости форума

Архив исходников

Automatic translation

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Показать удаленные записи таблицы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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;