anchor.diff:  interface
   
   uses
  -  Classes, contnrs,
  +  Classes, contnrs, db,
     mVirtualFieldDefs, StrHashMap;
   
   type
  +
  +  TmFormulaFieldType = (fftFloat, fftString, fftDateTime);
   
     { TmFormulaField }
   
     TmFormulaField = class
     strict private
  -    FDataType : TVirtualFieldDefType;
  +    FDataType : TmFormulaFieldType;
       FSize : integer;
       FFormula : String;
       FName : string;
  
positive.code:     function Count : integer;
      function Get (const aIndex : integer) : TmFormulaField;
      function FindByName (const aName : string) : TmFormulaField;
    end;
  
  implementation
  
  uses
    sysutils;
  
  { TmFormulaFields }
  
  
negative.code:   public
      constructor Create;
  
      property DataType : TmFormulaFieldType read FDataType write FDataType;
      property Size : integer read FSize write FSize;
      property Formula : string read FFormula write FFormula;
      property Name : string read FName write SetName;
  