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

Comparing ibx/trunk/fbintf/IBUtils.pas (file contents):
Revision 353 by tony, Sat Oct 23 14:11:37 2021 UTC vs.
Revision 354 by tony, Sat Oct 23 14:32:11 2021 UTC

# Line 1879 | Line 1879 | begin
1879            system.Delete(S,i,1);
1880        end
1881        else
1882 <      if (i > 1) and (S[i] in ['+','-']) and not (S[i-1] in ['e','E']) then
1883 <          Exit {malformed}
1882 >      if S[i] in ['+','-'] then
1883 >      begin
1884 >       if (i > 1) and not (S[i-1] in ['e','E']) then
1885 >          Exit; {malformed}
1886 >      end
1887        else
1888        if S[i] in ['e','E'] then {scientific notation}
1889        begin
# Line 1899 | Line 1902 | begin
1902        if Result then
1903        begin
1904          {adjust scale for decimal point}
1905 <        Scale := Scale - (exponent - ds - 1);
1905 >        if ds > 0 then
1906 >          Scale := Scale - (exponent - ds - 1);
1907          Result := TryStrToInt64(system.copy(S,1,exponent-1),Value);
1908        end;
1909      end

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines