GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 17:23:07 +01:00
Code Issues Projects Releases Wiki Activity

Added: name to duplicate define exception

Browse Source
This commit is contained in:
Mark van Renswoude 2004-10-30 12:28:15 +00:00
parent e19d798e51
commit 06f6bbd768
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
X2UtSettings.pas
View File

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