pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Fix precision needed for converting numbers to fractions

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4138 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-05-17 17:46:02 +00:00
parent db9a7563f1
commit e60cc7d4c7
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpspreadsheet/fpsutils.pas
View File

@ -2802,7 +2802,7 @@ begin
sfrsym := '/';
if ADigits >= 0 then begin
maxDenom := Round(IntPower(10, ADigits));
prec := 1/maxDenom;
prec := 0.5/maxDenom;
end;
numEl := Length(AElements);
@ -2824,7 +2824,6 @@ begin
end;
sfrint := ProcessIntegerFormat(IntToStr(frint), fs, AElements, i,
INT_TOKENS, false, (AElements[i].Token = nftIntTh));
//inc(i);
while (i < numEl) and (AElements[i].Token in TERMINATING_TOKENS) do
begin
sintnumspace := sintnumspace + AElements[i].TextValue;