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

* fixed fpc_ShortStr_Currency.

Browse Source 
git-svn-id: trunk@5848 -
This commit is contained in:
yury 2007-01-08 14:13:49 +00:00
parent 37b9258431
commit a2f4c7fd2a
1 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
rtl/inc/sstrings.inc
View File

@ -439,23 +439,22 @@ begin
else
begin
{ fixed format }
{ Currency have only 4 digits in fractional part }
Inc(reslen, sign);
if tlen < 4 then
{ prepending fractional part with zeroes }
while tlen < 5 do
begin
r:=tlen - f;
point:=tlen - 1;
end
else
Inc(reslen);
Inc(tlen);
buf[tlen]:='0';
end;
{ Currency have 4 digits in fractional part }
r:=4 - f;
point:=f;
if point <> 0 then
begin
r:=4 - f;
point:=f;
if point <> 0 then
begin
if point > 4 then
point:=4;
Inc(point);
end;
if point > 4 then
point:=4;
Inc(point);
end;
Dec(reslen,r);
end;