anchor.diff:      Classes, ComObj, Variants, DB, DBCommon, DBClient, DSIntf,
       DataProvider_TLB, Loodsman.Infrastructure.Resources;
   
  +resourcestring
  +    SWrongMidasDLL = 'На компьютере установлена старая версия MIDAS.DLL. '
  +        + 'Приложению требуется версия библиотеки 15.0 или более новая';
  +
   type
       TFieldIndex = class(TStringList)
       protected
  
positive.code:   end;
  end;
  
  procedure TCompatDataSet.InternalInitFieldDefs;
  var
      FieldID, I: Integer;
  
negative.code:     FieldID := 1;
      while I < CursorProps.iFields do
          AddFieldDesc(FieldDescs, I, FieldID, FieldDefs);
  end;
  
  procedure TCompatDataSet.OpenCursor(InfoQuery: Boolean);
  begin
      // См. комментарий в методе CreateDataSet
      try
          inherited OpenCursor(InfoQuery);
      except
          on EAccessViolation do
              raise EDBClient.Create(SWrongMidasDLL, 9986{DBIERR_INVALIDPARAM});
      end;
  end;
  
  {
  