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

fpexif: Fix potential divide-by-zero error in TExposureTimeTag.GetAsString (https://forum.lazarus.freepascal.org/index.php/topic,44015.msg379681.html#msg379681).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7779 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2020-10-14 19:11:04 +00:00
parent 660f4a7db7
commit f25070ba4f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpexif/fpeexifdata.pas
View File

@ -1510,10 +1510,11 @@ var
p: Integer; p: Integer;
begin begin
floatVal := GetAsFloat; floatVal := GetAsFloat;
if FFormatStr = '' then begin if IsNaN(floatVal) or (floatVal = 0) then
if IsNaN(floatVal) then
Result := '' Result := ''
else if floatVal >= 10 then else
if FFormatStr = '' then begin
if floatVal >= 10 then
Result := Format('%.0fs', [floatVal]) Result := Format('%.0fs', [floatVal])
else if floatVal >= 1 then else if floatVal >= 1 then
Result := Format('%.1fs', [floatVal]) Result := Format('%.1fs', [floatVal])