Improved reporting of missing unnamed parameters

Author: vincentparrett

Src/VSoft.CommandLine.Parser.pas

@@ -316,7 +316,7 @@ procedure TCommandLineParser.InternalValidate(const parseResult: IInternalParseR
     begin
       if not (option as IOptionDefInvoke).WasFound then
       begin
-        parseResult.AddError('Required Option [' + option.LongName + '] was not specified');
+        parseResult.AddError('Required option [' + option.LongName + '] was not specified');
       end;
     end;
   end;
@@ -327,21 +327,33 @@ procedure TCommandLineParser.InternalValidate(const parseResult: IInternalParseR
     begin
       if not (option as IOptionDefInvoke).WasFound then
       begin
-        parseResult.AddError('Missing required unnamed parameter(s)');
+        parseResult.AddError('Required parameter <' + option.ShortName + '> was not specified');
         Break;
       end;
     end;
   end;
 
   if parseResult.command <> nil then
   begin
+    for option in parseResult.command.RegisteredUnamedOptions do
+    begin
+      if option.Required then
+      begin
+        if not (option as IOptionDefInvoke).WasFound then
+        begin
+          parseResult.AddError('Required parameter <' + option.ShortName + '> was not specified');
+          Break;
+        end;
+      end;
+    end;
+
     for option in parseResult.command.RegisteredOptions do
     begin
       if option.Required then
       begin
         if not (option as IOptionDefInvoke).WasFound then
         begin
-          parseResult.AddError('Required Option [' + option.LongName + '] was not specified');
+          parseResult.AddError('Required option [' + option.LongName + '] was not specified');
         end;
       end;
     end;