[JVCL-Checkins] SF.net SVN: jvcl:[12958] trunk/jvcl/run/JvAppStorage.pas

[<ob...@us...>]

Revision: 12958
          http://jvcl.svn.sourceforge.net/jvcl/?rev=12958&view=rev
Author:   obones
Date:     2010-12-30 18:43:03 +0000 (Thu, 30 Dec 2010)

Log Message:
-----------
Warning fixed

Modified Paths:
--------------
    trunk/jvcl/run/JvAppStorage.pas

Modified: trunk/jvcl/run/JvAppStorage.pas
===================================================================
--- trunk/jvcl/run/JvAppStorage.pas	2010-12-29 21:12:05 UTC (rev 12957)
+++ trunk/jvcl/run/JvAppStorage.pas	2010-12-30 18:43:03 UTC (rev 12958)
@@ -3115,7 +3115,10 @@
 end;
 
 function TJvCustomAppStorage.GetFormatSettings: TFormatSettings;
-var atse: TJvTranslateString;
+{$IFDEF COMPILER7_UP}
+var 
+  Atse: TJvTranslateString;
+{$ENDIF COMPILER7_UP}
 begin
   {$IFDEF COMPILER7_UP}
   if Not IsUpdating then


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