summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--systemunit.pas11
1 files changed, 6 insertions, 5 deletions
diff --git a/systemunit.pas b/systemunit.pas
index 9b054ca..a10229b 100644
--- a/systemunit.pas
+++ b/systemunit.pas
@@ -126,12 +126,13 @@ function shellSubst(s: string): string;
var
name: string;
begin
- result:=s;
- while pos('${',result)>0 do begin
- s:=erstesArgument(result,'${',false);
- name:=erstesArgument(result,'}',false);
- result:=s+getEnvironmentVariable(name)+result;
+ result:='';
+ while pos('${',s)>0 do begin
+ result:=result+erstesArgument(s,'${',false);
+ name:=erstesArgument(s,'}',false);
+ result:=result+getEnvironmentVariable(name);
end;
+ result:=result+s;
end;
function homeVerzeichnis: string;