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

2 files changed, 28 insertions, 15 deletions

diff --git a/Make.lps b/Make.lps
index a2dbb6f..bffd316 100644
--- a/Make.lps
+++ b/Make.lps
@@ -21,9 +21,8 @@
       <Unit2>
         <Filename Value="tools.pas"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="5"/>
-        <TopLine Value="224"/>
+        <TopLine Value="31"/>
         <CursorPos X="34" Y="235"/>
         <UsageCount Value="91"/>
         <Loaded Value="True"/>
@@ -41,10 +40,11 @@
         <Filename Value="dateibeziehungen.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="dateiBeziehungen"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="1031"/>
-        <CursorPos X="31" Y="1028"/>
-        <FoldState Value=" T3jb03C pjYkO0B4]9ZkD0l3]97kJ0!7]9AlH0F112]B0lf0G114?"/>
+        <TopLine Value="342"/>
+        <CursorPos Y="361"/>
+        <FoldState Value=" T3jb03C pjYkO0B314 pkBo20!7]KAlH0F112N"/>
         <UsageCount Value="80"/>
         <Loaded Value="True"/>
       </Unit4>
@@ -244,20 +244,20 @@
         <Caret Line="109" Column="36" TopLine="91"/>
       </Position26>
       <Position27>
-        <Filename Value="Make.lpr"/>
-        <Caret Line="31" Column="19" TopLine="52"/>
-      </Position27>
-      <Position28>
         <Filename Value="dateibeziehungen.pas"/>
         <Caret Line="109" Column="29" TopLine="91"/>
+      </Position27>
+      <Position28>
+        <Filename Value="tools.pas"/>
+        <Caret Line="45" Column="29" TopLine="27"/>
       </Position28>
       <Position29>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="1028" Column="31" TopLine="1031"/>
+        <Caret Line="1098" Column="20" TopLine="1090"/>
       </Position29>
       <Position30>
-        <Filename Value="tools.pas"/>
-        <Caret Line="45" Column="29" TopLine="27"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="115" Column="32" TopLine="97"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
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)+'.');