paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpspreadsheet: Avoid confusion of fraction detection by dates

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6085 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2017-12-03 10:34:31 +00:00
parent d2d4b72692
commit b3046a8f88
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/fpspreadsheet/source/common/fpsutils.pas
View File

@ -1499,19 +1499,29 @@ var
p: Integer;
s, sInt, sNum, sDenom: String;
i,num,denom: Integer;
slashCount: Integer;
begin
Result := false;
s := '';
sInt := '';
sNum := '';
sDenom := '';
slashCount := 0;
p := 1;
while p <= Length(AText) do begin
case AText[p] of
'0'..'9': s := s + AText[p];
' ': begin sInt := s; s := ''; end;
'/': begin sNum := s; s := ''; end;
' ': begin
sInt := s;
s := '';
end;
'/': begin
sNum := s;
s := '';
inc(slashCount); // avoid confusion with dates (2017/1/1)
if slashCount > 1 then exit;
end;
else exit;
end;
inc(p);