From 00de61b4a857f3317c5fafed2d5a3d4e79460411 Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Sun, 5 Sep 2004 14:50:31 +0000
Subject: [PATCH] Fixed: writing undefined keys always resulted in an empty
 value

---
 X2UtSettings.pas | 20 ++++++++------------
 1 file changed, 8 insertions(+), 12 deletions(-)

diff --git a/X2UtSettings.pas b/X2UtSettings.pas
index d5304ca..6b9a77c 100644
--- a/X2UtSettings.pas
+++ b/X2UtSettings.pas
@@ -371,11 +371,10 @@ var
 
 begin
   pDefine := FFactory.GetDefine(FSection, AName);
+  vValue  := AValue;
+  
   if Assigned(pDefine) then
-  begin
-    vValue  := AValue;
     pDefine.Action(saWrite, FSection, AName, vValue);
-  end;
 
   InternalWriteBool(AName, vValue);
 end;
@@ -387,11 +386,10 @@ var
 
 begin
   pDefine := FFactory.GetDefine(FSection, AName);
+  vValue  := AValue;
+
   if Assigned(pDefine) then
-  begin
-    vValue  := AValue;
     pDefine.Action(saWrite, FSection, AName, vValue);
-  end;
 
   InternalWriteFloat(AName, vValue);
 end;
@@ -403,11 +401,10 @@ var
 
 begin
   pDefine := FFactory.GetDefine(FSection, AName);
+  vValue  := AValue;
+
   if Assigned(pDefine) then
-  begin
-    vValue  := AValue;
     pDefine.Action(saWrite, FSection, AName, vValue);
-  end;
 
   InternalWriteInteger(AName, vValue);
 end;
@@ -419,11 +416,10 @@ var
 
 begin
   pDefine := FFactory.GetDefine(FSection, AName);
+  vValue  := AValue;
+
   if Assigned(pDefine) then
-  begin
-    vValue  := AValue;
     pDefine.Action(saWrite, FSection, AName, vValue);
-  end;
 
   InternalWriteInteger(AName, vValue);
 end;