Mega Code Archive

 

Categories / Delphi / ADO Database

 

Dbase undelete

procedure RecordUndelete(aTable: TTable); begin aTable.UpdateCursorPos; try Check(DbiUndeleteRecord(aTable.Handle)); except ShowMessage('No undelete performed.'); end; end;