diff options
| -rw-r--r-- | mystringlistunit.pas | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/mystringlistunit.pas b/mystringlistunit.pas index 98fdb07..3f7fdf4 100644 --- a/mystringlistunit.pas +++ b/mystringlistunit.pas @@ -463,6 +463,14 @@ begin end; for i:=0 to count-1 do begin // Shellvariablen auswerten + s:=systemunit.shellSubst(self[i]); + if s<>self[i] then begin + wasGefunden:=true; + self[i]:=s; + end; + end; + + for i:=0 to count-1 do begin // Shellexpansionen auswerten s:=shellExpand(self[i]); if s<>self[i] then begin wasGefunden:=true; @@ -496,14 +504,6 @@ begin end; if wasGefunden then continue; - for i:=0 to count-1 do begin // Shellvariablen auswerten - s:=shellSubst(self[i]); - if s<>self[i] then begin - wasGefunden:=true; - self[i]:=s; - end; - end; - i:=0; while i<count do begin // Schleifen ausrollen s:=self[i]; |