epost.lpr: "Nullen einfügen in" sollte bei Syntaxfehler auch abbrechen ...

2 files changed, 49 insertions, 45 deletions

diff --git a/epost.lpr b/epost.lpr
index 5282a15..aa0cf9e 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -213,8 +213,10 @@ begin
           aufraeumen;
           halt(1);
         end;
-        wertes[i].nullenEinfuegen(syntaxTest,inf);
-        continue;
+        if wertes[i].nullenEinfuegen(syntaxTest,inf) then
+          continue;
+        aufraeumen;
+        halt(1);
       end;
       if istDasBefehl('mache komplex',s,bekannteBefehle,true) then begin
         i:=findeWerte(s,inf,@wertes,@konturen,false);
diff --git a/epost.lps b/epost.lps
index 5f577eb..b8a78ee 100644
--- a/epost.lps
+++ b/epost.lps
@@ -7,8 +7,9 @@
       <Unit0>
         <Filename Value="epost.lpr"/>
         <IsPartOfProject Value="True"/>
-        <TopLine Value="519"/>
-        <CursorPos X="57" Y="531"/>
+        <IsVisibleTab Value="True"/>
+        <TopLine Value="198"/>
+        <CursorPos Y="220"/>
         <UsageCount Value="202"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -22,10 +23,9 @@
       <Unit2>
         <Filename Value="epostunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="5937"/>
-        <CursorPos X="53" Y="5964"/>
+        <TopLine Value="162"/>
+        <CursorPos X="14" Y="178"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -211,118 +211,120 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="8177" Column="21" TopLine="8159"/>
+        <Caret Line="8189" Column="18" TopLine="8171"/>
       </Position1>
       <Position2>
         <Filename Value="epostunit.pas"/>
+        <Caret Line="8195" Column="59" TopLine="8177"/>
       </Position2>
       <Position3>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="317" Column="16" TopLine="288"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="66" Column="37" TopLine="49"/>
       </Position3>
       <Position4>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="7208" Column="19" TopLine="7182"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="1279" Column="42" TopLine="1262"/>
       </Position4>
       <Position5>
-        <Filename Value="epostunit.pas"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="1312" Column="52" TopLine="1284"/>
       </Position5>
       <Position6>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="196" Column="54" TopLine="168"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="1317" TopLine="1309"/>
       </Position6>
       <Position7>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="7232" Column="10" TopLine="7215"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="1292" Column="45" TopLine="1276"/>
       </Position7>
       <Position8>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="8184" Column="9" TopLine="8169"/>
+        <Caret Line="8177" Column="76" TopLine="8156"/>
       </Position8>
       <Position9>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="8189" Column="18" TopLine="8171"/>
       </Position9>
       <Position10>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="8195" Column="59" TopLine="8177"/>
+        <Caret Line="183" Column="39" TopLine="155"/>
       </Position10>
       <Position11>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="66" Column="37" TopLine="49"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="5956" TopLine="5944"/>
       </Position11>
       <Position12>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="1279" Column="42" TopLine="1262"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="196" Column="30" TopLine="180"/>
       </Position12>
       <Position13>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="1312" Column="52" TopLine="1284"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="5956" Column="18" TopLine="5928"/>
       </Position13>
       <Position14>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="1317" TopLine="1309"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="7227" Column="20" TopLine="7210"/>
       </Position14>
       <Position15>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="1292" Column="45" TopLine="1276"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="8175" Column="17" TopLine="8158"/>
       </Position15>
       <Position16>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="8177" Column="76" TopLine="8156"/>
+        <Caret Line="8177" Column="26" TopLine="8158"/>
       </Position16>
       <Position17>
         <Filename Value="epostunit.pas"/>
+        <Caret Line="8189" Column="24" TopLine="8175"/>
       </Position17>
       <Position18>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="183" Column="39" TopLine="155"/>
       </Position18>
       <Position19>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5956" TopLine="5944"/>
+        <Caret Line="317" Column="16" TopLine="288"/>
       </Position19>
       <Position20>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="196" Column="30" TopLine="180"/>
+        <Caret Line="7208" Column="32" TopLine="7194"/>
       </Position20>
       <Position21>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5956" Column="18" TopLine="5928"/>
       </Position21>
       <Position22>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="7227" Column="20" TopLine="7210"/>
+        <Caret Line="196" Column="30" TopLine="168"/>
       </Position22>
       <Position23>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="8175" Column="17" TopLine="8158"/>
+        <Caret Line="5948" Column="64" TopLine="5937"/>
       </Position23>
       <Position24>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="8177" Column="26" TopLine="8158"/>
+        <Caret Line="156" Column="26" TopLine="139"/>
       </Position24>
       <Position25>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="8189" Column="24" TopLine="8175"/>
+        <Caret Line="2661" Column="10" TopLine="2662"/>
       </Position25>
       <Position26>
         <Filename Value="epostunit.pas"/>
+        <Caret Line="10481" TopLine="10428"/>
       </Position26>
       <Position27>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="317" Column="16" TopLine="288"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="531" Column="57" TopLine="483"/>
       </Position27>
       <Position28>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="7208" Column="32" TopLine="7194"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="210" Column="30" TopLine="192"/>
       </Position28>
       <Position29>
         <Filename Value="epostunit.pas"/>
+        <Caret Line="178" Column="29" TopLine="161"/>
       </Position29>
       <Position30>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="196" Column="30" TopLine="168"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="210" Column="30" TopLine="198"/>
       </Position30>
     </JumpHistory>
     <RunParams>