dateibeziehungen.pas: ausführlichere Fehlermeldung im Falle falscher Parameter für %dirname...%

1 files changed, 16 insertions, 3 deletions

diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index 6c67fe2..a076ed1 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -348,18 +348,31 @@ begin
   while pos('%dirname',worin)>0 do begin                  // %dirname%
     anfang:=erstesArgument(worin,'%dirname',false);
     mitte:=erstesArgument(worin,'%',false);
+    s:='%dirname'+mitte+'%';
     if mitte='' then
       qNum:=0
     else
-      qNum:=strtoint(erstesArgument(mitte,',',true));
+      try
+        qNum:=strtoint(erstesArgument(mitte,',',true));
+      except
+        fehler('Syntaxfehler %dirname...%: '''+s+'%''');
+      end;
     if mitte='' then
       li:=0
     else
-      li:=strtoint(erstesArgument(mitte,',',true));
+      try
+        li:=strtoint(erstesArgument(mitte,',',true));
+      except
+        fehler('Syntaxfehler %dirname...%: '''+s+'%''');
+      end;
     if mitte='' then
       re:=-1
     else
-      re:=strtoint(erstesArgument(mitte,',',true));
+      try
+        re:=strtoint(erstesArgument(mitte,',',true));
+      except
+        fehler('Syntaxfehler %dirname...%: '''+s+'%''');
+      end;
 
     if qNum>=momentanePosition then
       fehler('Quellersetzung sieht ''%dirname%'' für Quelle Nummer '+intToStr(qNum)+' an Position '+intToStr(momentanePosition)+'.');