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

fpexif: Fix usage with Delphi 7. Update readme.txt.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9016 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-11-08 17:56:29 +00:00
parent 97d23a09e0
commit 2aa985a34c
25 changed files with 474 additions and 534 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpexif/tests/multiread/common/mrtmain.pas
View File

@ -159,8 +159,11 @@ begin
RunTest(node);
node := node.GetNextSibling;
end;
MismatchInfo.Caption := Format('%d mismatches out of %d tests (%.0f%%)', [
FMismatchCount, FTotalCount, FMismatchCount/FTotalCount*100]);
if FTotalCount = 0 then
MismatchInfo.Caption := 'No tests executed.'
else
MismatchInfo.Caption := Format('%d mismatches out of %d tests (%.0f%%)', [
FMismatchCount, FTotalCount, FMismatchCount/FTotalCount*100]);
MismatchInfo.Show;
end;