forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix #474 - SymString of tools parameters not expanded when queryParameters is activated and an empty string is passed

This commit is contained in:
Basile Burg 2019-05-15 08:27:05 +02:00
parent 13cfe8cc7d
commit 78d8148730
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/u_tools.pas
View File

@ -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;