anchor.diff:    Create(Str);
   end;
   
  -{$IFDEF HASEXTENDED}
  +{$IFDEF HasExtended}
   constructor BigDecimal.Create(const E: Extended);
   var
     Str: string;
  
positive.code: 
    if Result.Scale < LTargetScale then
      Result := Result.RoundToScale(LTargetScale, rmUnnecessary);
  end;
  
  function BigDecimal.IsZero: Boolean;
  
negative.code: {$IFEND}
  
  {$IF CompilerVersion >= 21.0}   // Delphi 2010
    {$DEFINE HasClassConstructors}
  {$IFEND}
  
  {$IF SizeOf(Extended) > SizeOf(Double)}
    {$DEFINE HasExtended}
  {$IFEND}
  
  {$DEFINE Experimental}
  
  interface
  
  