Следующая статья: Задание псевдонима программным путем.
Можно ли восстановить запись из таблицы dBASE после ее удаления? Нельзя ли дать пример использования функции?
Предположим, на форме имеется кнопка (с именем «butRecall»), восстанавливающая текущую отображаемую (или позиционируемую курсором) запись. Данный код, будучи расположенным в обработчике события кнопки OnClick, это демонстрирует:
function GetTableCursor(oTable: TTable): hDBICur; var szTable: Array [0..78] of Char; begin StrPCopy(szTable, oTable.TableName); DbiGetCursorForTable(oTable.DBHandle, szTable, nil, Result); end; function dbRecall(oTable: TTable): DBIResult; begin Result:=DbiUndeleteRecord(GetTableCursor(oTable)); end; procedure TForm1.butRecallClick(Sender: TObject); begin if dbRecall(Table1)<>DBIERR_NONE then ShowMessage('Не могу восстановить запись!'); end;