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

custom tools, allow to interpolate the parameters with the result of the input query, close #53

This commit is contained in:
Basile Burg 2016-06-19 07:46:42 +02:00
parent d2bbe29e88
commit cc4fdbfc40
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_tools.pas
View File

@ -193,6 +193,7 @@ end;
procedure TCEToolItem.execute(previous: TCEToolItem); procedure TCEToolItem.execute(previous: TCEToolItem);
var var
arg: string;
prm: string; prm: string;
inp: string; inp: string;
old: string; old: string;
@ -220,7 +221,14 @@ begin
begin begin
prm := ''; prm := '';
if InputQuery('Parameters', '', prm) then if InputQuery('Parameters', '', prm) then
if prm.isNotEmpty then fProcess.Parameters.AddText(fSymStringExpander.expand(prm)); begin
prm := fSymStringExpander.expand(prm);
arg := StringReplace(fParameters.Text, '<$1>', prm, [rfReplaceAll]);
if prm.isNotEmpty and (arg = fParameters.Text) then
fProcess.Parameters.AddText(prm)
else
fProcess.Parameters.Text := arg;
end;
end; end;
ensureNoPipeIfWait(fProcess); ensureNoPipeIfWait(fProcess);
// //