anchor.diff:  interface
   
   uses
  -  db, Graphics, variants, math,
  +  db, Graphics, variants, math, Classes,
     mUtility, mMathUtility, mFloatsManagement;
   
   type
  
positive.code: uses
    SysUtils {$IFDEF FPC}, LazUtf8{$ENDIF};
  
  { TNullableDoubleRecord }
  
  procedure TNullableDoubleRecord.CreateAsNull;
  
negative.code:     property TagChanged: Boolean read FTagChanged;
    end;
  
    { TNullablesList }
  
    TNullablesList = class
    strict private
      FList : TList;
    public
      constructor Create;
      destructor Destroy; override;
  
      function Count : integer;
      function Get(const aIndex : integer): TAbstractNullable;
      function AlmostOneChanged: boolean;
      procedure Add(const aNullableItem: TAbstractNullable);
    end;
  
    { TNullableString }
  
    TNullableString = class(TAbstractNullable)
  