| # | Line 387 | Line 387 | end; | |
|---|---|---|
| 387 | procedure TFBArrayElement.SetAsString(Value: AnsiString); | |
| 388 | var len: integer; | |
| 389 | ElementSize: integer; | |
| 390 | + | Int64Value: Int64; |
| 391 | begin | |
| 392 | CheckActive; | |
| 393 | case GetSQLType of | |
| # | Line 430 | Line 431 | begin | |
| 431 | if trim(Value) = '' then | |
| 432 | SetAsInt64(0) | |
| 433 | else | |
| 434 | < | SetAsInt64(AdjustScaleFromCurrency(StrToCurr(Value),GetScale)); |
| 434 | > | if TryStrToInt64(Value,Int64Value) then |
| 435 | > | SetAsInt64(Int64Value) |
| 436 | > | else |
| 437 | > | SetAsCurrency(StrToCurr(Value)); |
| 438 | ||
| 439 | SQL_D_FLOAT, | |
| 440 | SQL_DOUBLE, | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |