improved error reporting for duplicate options

VSoftTechnologies · Dec 10, 2019 · 5460325 · 5460325
1 parent 836b710
commit 5460325
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Src/VSoft.CommandLine.Options.pas b/Src/VSoft.CommandLine.Options.pas
@@ -556,10 +556,10 @@ function TCommandDefinition.RegisterOption<T>(const longName, shortName: string;
     raise Exception.Create('Name required - use RegisterUnamed to register unamed options');
 
   if FCommandDef.HasOption(LowerCase(longName)) then
-    raise Exception.Create('Option : ' + longName + 'already registered');
+    raise Exception.Create('Option [' + longName + '] already registered on command [' + FCommandDef.Name + ']');
 
   if FCommandDef.HasOption(LowerCase(shortName)) then
-    raise Exception.Create('Option : ' + shortName + 'already registered');
+    raise Exception.Create('Option [' + shortName + '] already registered on command [' + FCommandDef.Name + ']');
 
   result := TOptionDefinition<T>.Create(longName,shortName,Action);