ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/client/FBNumeric.pas
(Generate patch)

Comparing ibx/branches/udr/client/FBNumeric.pas (file contents):
Revision 374 by tony, Wed Jan 5 15:21:22 2022 UTC vs.
Revision 375 by tony, Sun Jan 9 23:42:58 2022 UTC

# Line 332 | Line 332 | end;
332  
333   function TFBNumeric.clone(aNewScale: integer): IFBNumeric;
334   begin
335 + if FScale = aNewScale then
336 +   Result := TFBNumeric.Create(FValue,FScale)
337 + else
338    Result := TFBNumeric.Create(Round(FValue * IntPower(10,FScale-aNewScale)),aNewScale);
339   end;
340  
# Line 383 | Line 386 | begin
386    begin
387      value := clone(-4).GetRawValue;
388      Move(value,Result,sizeof(Currency));
389 <  end
389 >  end
390    else
391      Move(FValue,Result,sizeof(Currency));
392   end;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines