From 78d81487307138b6a59bf49e552c438a73f52b14 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 15 May 2019 08:27:05 +0200
Subject: [PATCH] fix #474 - SymString of tools parameters not expanded when
 queryParameters is activated and an empty string is passed

---
 src/u_tools.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/u_tools.pas b/src/u_tools.pas
index 5038a196..09be2ae9 100644
--- a/src/u_tools.pas
+++ b/src/u_tools.pas
@@ -240,11 +240,11 @@ begin
   if fQueryParams then
   begin
     prm := '';
-    if InputQuery('Parameters', '', prm) then
+    if InputQuery('Parameters', '', prm) and not prm.isBlank then
     begin
       prm := fSymStringExpander.expand(prm);
-      arg := StringReplace(fParameters.Text, '<$1>', prm, [rfReplaceAll]);
-      if prm.isNotEmpty and (arg = fParameters.Text) then
+      arg := StringReplace(fProcess.Parameters.Text, '<$1>', prm, [rfReplaceAll]);
+      if prm.isNotEmpty and (arg = fProcess.Parameters.Text) then
         fProcess.Parameters.AddText(prm)
       else
         fProcess.Parameters.Text := arg;