From 06f6bbd768dab935f012e48f50df02dae94583bb Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Sat, 30 Oct 2004 12:28:15 +0000
Subject: [PATCH] Added: name to duplicate define exception

---
 X2UtSettings.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/X2UtSettings.pas b/X2UtSettings.pas
index b2f5da6..4d9512e 100644
--- a/X2UtSettings.pas
+++ b/X2UtSettings.pas
@@ -184,7 +184,7 @@ resourcestring
   RSInvalidRange  = 'Invalid range!';
   RSInvalidType   = 'Invalid type!';
   RSUndefined     = 'Undefined setting: %s!';
-  RSDefineExists  = 'Define already exists!';
+  RSDefineExists  = 'Define "%s" already exists!';
 
 
 {============================ TX2Settings
@@ -488,7 +488,7 @@ var
 begin
   sHash := ASection + #0 + AName;
   if FDefines.Exists(sHash) then
-    raise EX2SettingsExists.Create(RSDefineExists);
+    raise EX2SettingsExists.CreateFmt(RSDefineExists, [ASection + '.' + AName]);
 
   // Validate type
   vtValue         := CheckVarType(AValue);