Undelete a dBASE record

Spread the love

Undelete a dBASE record

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