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

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9016 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/fpexif/tests/multiread/MultiRead_D7.dof

@@ -134,15 +134,14 @@ OriginalFilename=
 ProductName=
 ProductVersion=9.0.0.0
 [Excluded Packages]
-D:\Prog_Delphi\common\Components\3rdParty\TeeChart\Sources\Compiled\Delphi7\Bin\DclTeeMaker17.bpl=TeeMaker 
+D:\Prog_Delphi\common\Components\3rdParty\TeeChart\Sources\Compiled\Delphi7\Bin\DclTeeMaker17.bpl=TeeMaker
 D:\Programme\Borland\Delphi7\Lib\HelpCtxD7.bpl=HelpScribble HelpContext Property Editor for Delphi 7
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=2
+Count=1
 Item0=..\..;common
-Item1=D:\Prog_Lazarus\git\dexif-afriess-master
 [HistoryLists\hlUnitOutputDirectory]
 Count=2
 Item0=output\dcu\Delphi7

components/fpexif/tests/multiread/MultiRead_Laz.lpi

@@ -1,11 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="11"/>
+    <Version Value="12"/>
     <PathDelim Value="\"/>
     <General>
+      <Flags>
+        <CompatibilityMode Value="True"/>
+      </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
       <Title Value="MultiRead_Laz"/>
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
@@ -108,6 +110,7 @@
     </SearchPaths>
     <Linking>
       <Debugging>
+        <DebugInfoType Value="dsDwarf3"/>
         <UseExternalDbgSyms Value="True"/>
       </Debugging>
       <Options>

components/fpexif/tests/multiread/common/mrtmain.pas

@@ -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;