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