mystringlistunit.pas: tMyStringList.unfoldMacros: shellSubst eher ausführen

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