...undelete a dBASE record?
Author: Doug Baird
procedure RecordUndelete(aTable: TTable);
begin
  aTable.UpdateCursorPos;
  try
    Check(DbiUndeleteRecord(aTable.Handle));
  except
    ShowMessage('No undelete performed.');
  end;
end;
printed from
  www.swissdelphicenter.ch
  developers knowledge base