Восстановление записи dBase :: Статьи по Delphi - Iguana Software

This version of the page http://igp.org.ua/articles/a21/ (0.0.0.0) stored by archive.org.ua. It represents a snapshot of the page as of 2007-02-18. The original page over time could change.

Восстановление записи dBase :: Статьи по Delphi - Iguana Software - IGP.ORG.UA

Поиск по базе статей :

Изменено минимальное разрешение сайта на 1024x768
Подробнее...

Вспоминаем старый добрый DOS и времена 80-х! ;)
Подробнее...

Рекомендуем книгу!

Orig:http://www.bambook.com/book1/images/natasha410pg.jpg

.NET Framework 2.0. Секреты создания Windows-приложений

На сегодняшний день .NET Framework настолько опередила конкурирующие платформы, что предполагается платформой "по умолчанию" для разработки любых программных продуктов. Это связано с тем, что компания Microsoft не просто учла ошибки других производителей...

После удаления записи из таблицы (dBase),ее возможно восстановить.

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;

Предположим, у вас на форме имеется кнопка (с именем 'butRecall'), восстанавливающая текущую отображаемую (или позиционируемую курсором) запись, данный код, будучи расположенный в обработчике события кнопки OnClick (вместе с опубликованным выше кодом), это демонстрирует (продвигаясь в наших предположених дальше, имя вашего объекта TTable - Table1 и имя текущей формы - Form1):

procedure TForm1.butRecallClick(Sender : TObject);
            begin
              if dbRecall(Table1)<>DBIERR_NONE then
              ShowMessage('Не могу восстановить запись!');
            end;

- Loren Scott