diff options
Diffstat (limited to 'dateibeziehungen.pas')
-rw-r--r-- | dateibeziehungen.pas | 19 |
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)+'.'); |