Merge pull request #150 from pjrobin/Feature_ParamExists_CUstom_Separator

Modifies ParamExists to accept custom ValueSeparator

Author: exilon

Quick.Parameters.pas

@@ -187,7 +187,7 @@     TParam = class
     {$ENDIF}
     function GetHelp : TStringList;
     property Help : Boolean read fHelp write fHelp;
-    function ExistsParam(const aParam : string): Boolean; overload;
+    function ExistsParam(const aParam : string; const aValueSeparator : string = ''): Boolean; overload;
   end;
   {$M-}
 
@@ -315,12 +315,13 @@ function TParameters.CheckHelpSwitch: Boolean;
   end;
 end;
 
-function TParameters.ExistsParam(const aParam : string): Boolean;
+function TParameters.ExistsParam(const aParam : string; const aValueSeparator : string = ''): Boolean;
 var
   param : TParam;
 begin
   param := TParam.Create;
   param.Name := aParam;
+  if not aValueSeparator.IsEmpty then param.ValueSeparator := aValueSeparator;
   param.Alias := '';
   try
     Result := ExistParam(param,param.Name);