[Jcl-checkins-diff] SF.net SVN: jcl:[3011] trunk/jcl/experts/projectanalyzer/ProjAnalyzerImpl. pas

[<ou...@us...>]

Revision: 3011
          http://jcl.svn.sourceforge.net/jcl/?rev=3011&view=rev
Author:   outchy
Date:     2009-09-14 15:53:23 +0000 (Mon, 14 Sep 2009)

Log Message:
-----------
fixed possible issue when the variant does not denote an ordinal value.

Modified Paths:
--------------
    trunk/jcl/experts/projectanalyzer/ProjAnalyzerImpl.pas

Modified: trunk/jcl/experts/projectanalyzer/ProjAnalyzerImpl.pas
===================================================================
--- trunk/jcl/experts/projectanalyzer/ProjAnalyzerImpl.pas	2009-09-13 18:48:11 UTC (rev 3010)
+++ trunk/jcl/experts/projectanalyzer/ProjAnalyzerImpl.pas	2009-09-14 15:53:23 UTC (rev 3011)
@@ -108,6 +108,7 @@
 {$R ProjAnalyzerIcon.res}
 
 uses
+  Variants,
   JclDebug, JclFileUtils, JclOtaConsts, 
   JclOtaResources;
 
@@ -299,7 +300,7 @@
         ProjectAnalyzerForm.SetFileName(ExecutableFileName, MapFileName, ProjectName);
         ProjectAnalyzerForm.Show;
       end;
-      if Integer(SaveMapFile) <> MapFileOptionDetailed then
+      if (not VarIsOrdinal(SaveMapFile)) or (Integer(SaveMapFile) <> MapFileOptionDetailed) then
       begin // delete MAP and DRC file
         DeleteFile(MapFileName);
         DeleteFile(ChangeFileExt(MapFileName, DrcFileExtension));


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.