systemunit.pas: shellExpand honoriert nun '.

1 files changed, 18 insertions, 7 deletions

diff --git a/systemunit.pas b/systemunit.pas
index 408fc19..461a118 100644
--- a/systemunit.pas
+++ b/systemunit.pas
@@ -194,14 +194,24 @@ end;
 
 procedure shellExpand(var sa: tMyStringList);
 var
-  start,ende,s:                   string;
+  start,ende,s,original,praefix:  string;
   i,j,ebene,iStart,iStopp,insOff: longint;
 begin
   i:=0;
-  while i<sa.count do
-    if pos('{',sa[i])>0 then begin
-      s:=sa[i];
-      start:=erstesArgument(s,'{',false);
+  while i<sa.count do begin
+    original:=sa[i];
+    s:=original;
+    praefix:='';
+    while pos('{',s+'{') > pos('''',s+'''') do begin
+      j:=pos('''',s+'''');
+      praefix:=praefix + leftStr(s,j);
+      delete(s,1,j);
+      j:=pos('''',s+'''');
+      praefix:=praefix + leftStr(s,j);
+      delete(s,1,j);
+    end;
+    if pos('{',s)>0 then begin
+      start:=praefix+erstesArgument(s,'{',false);
       j:=1;
       ebene:=0;
       while (j<=length(s)) and ((s[j]<>'}') or (ebene>0)) do begin
@@ -212,7 +222,7 @@ begin
         inc(j);
       end;
       if (ebene<>0) or (j>length(s)) then
-        fehler('Geschweifte Klammern sind in '''+sa[i]+''' nicht ausgewogen!');
+        fehler('Geschweifte Klammern sind in '''+original+''' nicht ausgewogen!');
 
       ende:=rightStr(s,length(s)-j);
       s:=leftStr(s,j-1)+',';
@@ -230,7 +240,7 @@ begin
           '.':
             if (ebene=0) and (copy(s,j,2)='..') then begin
               if iStart<>low(longint) then
-                fehler('''..'' darf nicht mehrmals hintereinander auftauchen - in '''+sa[i]+''' ist das aber der Fall!');
+                fehler('''..'' darf nicht mehrmals hintereinander auftauchen - in '''+original+''' ist das aber der Fall!');
               iStart:=strToInt(trim(leftStr(s,j-1)));
               delete(s,1,j+1);
               j:=1;
@@ -262,6 +272,7 @@ begin
     end
     else
       inc(i);
+  end;
   for i:=0 to sa.count-1 do begin
     if leftStr(sa[i],1)<>'~' then
       continue;