summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2018-01-26 10:47:11 +0100
committerErich Eckner <git@eckner.net>2018-01-26 10:47:11 +0100
commit0c51fdd444f4cf72380ebad891e82ad76320fcad (patch)
treed71d09e7b3830ef0f5eb8dbe37684a882233fa69
parentb9e8a86939aef6fba5a0fa08d59a0ea0dc09b2e6 (diff)
downloadMake-0c51fdd444f4cf72380ebad891e82ad76320fcad.tar.xz
dateibeziehungen.pas: ausführlichere Fehlermeldung im Falle falscher Parameter für %dirname...%
-rw-r--r--Make.lps24
-rw-r--r--dateibeziehungen.pas19
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)+'.');