escapen von ";" mittels ";;" eingebaut

1 files changed, 6 insertions, 1 deletions

diff --git a/Make.lpr b/Make.lpr
index 79fe703..6db584d 100644
--- a/Make.lpr
+++ b/Make.lpr
@@ -213,7 +213,10 @@ begin
         '}': dec(Ebene);
       end;
     until (result>=length(worin)) or ((copy(worin,result,length(was))=was) and (Ebene=0));
-    if ((result=1) or (worin[result-1]<>'\')) and (copy(worin,result,length(was))=was) then exit;
+    if
+      ((result=1) or ((worin[result-1]<>'\') and (worin[result-1]<>was))) and
+      ((result=length(worin)) or (worin[result+1]<>was)) and
+      (copy(worin,result,length(was))=was) then exit;
   end;
   result:=0;
 end;
@@ -283,6 +286,8 @@ begin
           delete(s,1,1);
         while unescapedpos(';',s)>0 do
           s:=copy(s,1,unescapedpos(';',s)-1)+' &&'+copy(s,unescapedpos(';',s)+1,length(s)-unescapedpos(';',s));
+        while pos(';;',s)>0 do
+          delete(s,pos(';;',s),1);
         NA.Befehle.Add(s);
       end;
       if fin then begin