From 3f8b9fc77b8e4b7b729763546d44e26fa145068d Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Tue, 8 Jun 2004 17:14:17 +0000
Subject: [PATCH] Fixed: Result not defined warning in registry Read functions

---
 X2UtSettingsRegistry.pas | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/X2UtSettingsRegistry.pas b/X2UtSettingsRegistry.pas
index 5893082..b991c7f 100644
--- a/X2UtSettingsRegistry.pas
+++ b/X2UtSettingsRegistry.pas
@@ -174,7 +174,9 @@ begin
       Result  := FData.ReadBool(AName)
     except
       Result  := ADefault;
-    end;
+    end
+  else
+    Result  := ADefault;
 end;
 
 function TX2RegistrySettings.ReadFloat;
@@ -184,7 +186,9 @@ begin
       Result  := FData.ReadFloat(AName)
     except
       Result  := ADefault;
-    end;
+    end
+  else
+    Result  := ADefault;
 end;
 
 function TX2RegistrySettings.ReadInteger;
@@ -194,7 +198,9 @@ begin
       Result  := FData.ReadInteger(AName)
     except
       Result  := ADefault;
-    end;
+    end
+  else
+    Result  := ADefault;
 end;
 
 function TX2RegistrySettings.ReadString;
@@ -204,7 +210,9 @@ begin
       Result  := FData.ReadString(AName)
     except
       Result  := ADefault;
-    end;
+    end
+  else
+    Result  := ADefault;
 end;