From 0c51fdd444f4cf72380ebad891e82ad76320fcad Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Fri, 26 Jan 2018 10:47:11 +0100
Subject: dateibeziehungen.pas: ausführlichere Fehlermeldung im Falle falscher
 Parameter für %dirname...%
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Make.lps             | 24 ++++++++++++------------
 dateibeziehungen.pas | 19 ++++++++++++++++---
 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)+'.');
-- 
cgit v1.2.3-70-g09d2