Changeset 32 for trunk

Timestamp:

Jan 8, 2017, 11:09:33 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Avoid exception during read from registry.

Location:

trunk

Files:

• Direct.pas (modified) (1 diff)
• Integrated.lpi (modified) (2 diffs)
• Start.pas (modified) (1 diff)

trunk/Direct.pas

@@ -7 +7 @@
   Messg,
 
-  LCLIntf, LCLType, Messages, SysUtils, Classes, Graphics, Controls, Forms;
+  LCLIntf, LCLType, {$IFDEF Linux}LMessages, {$ENDIF}Messages, SysUtils, Classes, Graphics, Controls, Forms;
 
 const

trunk/Integrated.lpi

@@ -395 +395 @@
         <Filename Value="LocalPlayer\TechTree.pas"/>
         <IsPartOfProject Value="True"/>
-        <ComponentName Value="TechTreeDlg"/>
-        <HasResources Value="True"/>
-        <ResourceBaseClass Value="Form"/>
+        <HasResources Value="True"/>
       </Unit40>
       <Unit41>
@@ -432 +430 @@
         <StackChecks Value="True"/>
       </Checks>
+      <VerifyObjMethodCallValidity Value="True"/>
     </CodeGeneration>
     <Linking>

trunk/Start.pas

@@ -986 +986 @@
         Reg := TRegistry.Create;
         Reg.OpenKey('SOFTWARE\cevo\RegVer9\Start', true);
-        try
-          MapCount := Reg.ReadInteger('MapCount');
-        except
-          MapCount := 0;
-        end;
+        if Reg.ValueExists('MapCount') then
+          MapCount := Reg.ReadInteger('MapCount')
+          else  MapCount := 0;
         inc(MapCount);
         Reg.WriteInteger('MapCount', MapCount);