paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 02:28:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed carry bug in conversion of currency to string

Browse Source 
git-svn-id: trunk@8612 -
This commit is contained in:
michael 2007-09-23 10:26:00 +00:00
parent 5cb32f860b
commit 9777065197
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/inc/sstrings.inc
View File

@ -562,7 +562,6 @@ begin
end;
Dec(reslen,r);
end;
{ rounding string if r > 0 }
if r > 0 then
begin
@ -570,17 +569,23 @@ begin
k:=0;
for j:=0 to r do
begin
buf[i]:=chr(ord(buf[i]) + k);
if buf[i] >= '5' then
k:=1
if (k=1) and (buf[i]='9') then
buf[i]:='0'
else
k:=0;
begin
buf[i]:=chr(ord(buf[i]) + k);
if buf[i] >= '5' then
k:=1
else
k:=0;
end;
Inc(i);
if i>tlen then
if i>tlen then
break;
end;
If (k=1) and (buf[i-1]='0') then
buf[i]:=chr(Ord(buf[i])+1);
end;
{ preparing result string }
if reslen<len then
reslen:=len;