| # | 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; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |