From 5474ff7adc2251b3afcdd2894715bf5fa894cec7 Mon Sep 17 00:00:00 2001
From: "DE\\rob2bh" <pierre-jean.robin@de.bosch.com>
Date: Thu, 5 Dec 2024 15:20:53 +0100
Subject: [PATCH] ExistsParam braucht ValueSeparator

---
 Quick.Parameters.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Quick.Parameters.pas b/Quick.Parameters.pas
index 751e913..fa35f25 100644
--- a/Quick.Parameters.pas
+++ b/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, aValueSeparator : string): Boolean; overload;
   end;
   {$M-}
 
@@ -315,11 +315,12 @@ function TParameters.CheckHelpSwitch: Boolean;
   end;
 end;
 
-function TParameters.ExistsParam(const aParam : string): Boolean;
+function TParameters.ExistsParam(const aParam, aValueSeparator : string): Boolean;
 var
   param : TParam;
 begin
   param := TParam.Create;
+  param.ValueSeparator := aValueSeparator;
   param.Name := aParam;
   param.Alias := '';
   try