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

Comparing ibx/trunk/fbintf/client/FBArray.pas (file contents):
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC vs.
Revision 349 by tony, Mon Oct 18 08:39:40 2021 UTC

# 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,

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines