Скачать Усовершенствованый TResourceFile

13.03.1997
Скачать файл (4,38 Кб)

{   Last modified: 23/01/96                                                   }
{                                                                             }
{                     *******************************                         }
{                     *      Ruslan Bondarenko      *                         }
{                     *******************************                         }
{                     *      My Pascal Library      *                         }
{                     *            (BPL)            *                         }
{                     *          CopyRight          *                         }
{                     *  Dniepr, 2:464/39@fidonet   *                         }
{                     *                             *                         }
{                     *           1995-96           *                         }
{                     *******************************                         }

Это усовершенствованый TResourceFile из стандартного модуля Objects.pas Как известно TResourceFile имеет один существенный недостаток, при записи в ресурс нового обьекта затирается каталог обьектов и если по каким либо причинам не вызван метод Flush (отключение питания, RunError), то ресурс можно считать потеряным.

with DB^ do
  begin
    Lock;
    if ErrorInfo = 0 then 
     begin
      Put(New(PNewObject, Init))
      Unlock;
     end  
     else Reset;
  end;

var SearchVar: TSearchMode;
      MyObject: TMyObject;
  begin
    with DB^ do
    begin
      SearchVar := mSearchFirst;
      I := SearchKey('My Object', SearchVar);
      while I <> 0 do
      begin
        SearchVar := mSearchNext;
        MyObject := TMyObject(Get(I));
        I := SearchKey('My Object', SearchVar);
      end;
    end;
  end;