romunit.pas: more verbose errors on too short pulsesHEADmaster

3 files changed, 61 insertions, 53 deletions

diff --git a/ROM.lpi b/ROM.lpi
index 0e77c85..43d2710 100644
--- a/ROM.lpi
+++ b/ROM.lpi
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="10"/>
+    <Version Value="11"/>
     <General>
       <Flags>
         <MainUnitHasCreateFormStatements Value="False"/>
@@ -23,9 +23,10 @@
       <Version Value="2"/>
     </PublishOptions>
     <RunParams>
-      <local>
-        <FormatVersion Value="1"/>
-      </local>
+      <FormatVersion Value="2"/>
+      <Modes Count="1">
+        <Mode0 Name="default"/>
+      </Modes>
     </RunParams>
     <Units Count="3">
       <Unit0>
diff --git a/ROM.lps b/ROM.lps
index d1a363d..88fa634 100644
--- a/ROM.lps
+++ b/ROM.lps
@@ -1,14 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectSession>
-    <Version Value="10"/>
+    <Version Value="11"/>
     <BuildModes Active="Default"/>
     <Units Count="7">
       <Unit0>
         <Filename Value="ROM.lpr"/>
         <IsPartOfProject Value="True"/>
-        <TopLine Value="173"/>
-        <CursorPos X="140" Y="186"/>
+        <TopLine Value="191"/>
+        <CursorPos Y="208"/>
         <UsageCount Value="111"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -17,8 +17,8 @@
         <IsPartOfProject Value="True"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="592"/>
-        <CursorPos X="47" Y="620"/>
+        <TopLine Value="588"/>
+        <CursorPos X="47" Y="609"/>
         <FoldState Value=" T3iC04043T"/>
         <UsageCount Value="111"/>
         <Loaded Value="True"/>
@@ -58,124 +58,127 @@
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="ROM.lpr"/>
-        <Caret Line="40" TopLine="22"/>
+        <Filename Value="romunit.pas"/>
+        <Caret Line="27" Column="22"/>
       </Position1>
       <Position2>
-        <Filename Value="ROM.lpr"/>
-        <Caret Line="117" TopLine="100"/>
+        <Filename Value="romunit.pas"/>
+        <Caret Line="49" Column="91" TopLine="20"/>
       </Position2>
       <Position3>
-        <Filename Value="ROM.lpr"/>
-        <Caret Line="216" Column="56" TopLine="198"/>
+        <Filename Value="romunit.pas"/>
+        <Caret Line="62" Column="77" TopLine="56"/>
       </Position3>
       <Position4>
-        <Filename Value="ROM.lpr"/>
-        <Caret Line="250" Column="22" TopLine="219"/>
+        <Filename Value="romunit.pas"/>
+        <Caret Line="146" Column="15" TopLine="118"/>
       </Position4>
       <Position5>
         <Filename Value="romunit.pas"/>
-        <Caret Line="30" TopLine="28"/>
+        <Caret Line="206" Column="84" TopLine="193"/>
       </Position5>
       <Position6>
-        <Filename Value="ROM.lpr"/>
-        <Caret Line="19" Column="58"/>
+        <Filename Value="romunit.pas"/>
+        <Caret Line="304" Column="72" TopLine="475"/>
       </Position6>
       <Position7>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="37" TopLine="19"/>
+        <Caret Line="210" Column="9" TopLine="190"/>
       </Position7>
       <Position8>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="99" TopLine="83"/>
+        <Caret Line="16" Column="34"/>
       </Position8>
       <Position9>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="19" Column="7"/>
+        <Caret Line="191" Column="31" TopLine="162"/>
       </Position9>
       <Position10>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="36" Column="7" TopLine="7"/>
+        <Caret Line="195" Column="31" TopLine="166"/>
       </Position10>
       <Position11>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="95" Column="26" TopLine="66"/>
+        <Caret Line="198" Column="29" TopLine="169"/>
       </Position11>
       <Position12>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="96" Column="11" TopLine="67"/>
+        <Caret Line="202" Column="21" TopLine="173"/>
       </Position12>
       <Position13>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="205" Column="18" TopLine="176"/>
       </Position13>
       <Position14>
-        <Filename Value="romunit.pas"/>
-        <Caret Line="30"/>
+        <Filename Value="ROM.lpr"/>
+        <Caret Line="16" Column="34"/>
       </Position14>
       <Position15>
-        <Filename Value="romunit.pas"/>
-        <Caret Line="888" Column="63" TopLine="871"/>
+        <Filename Value="ROM.lpr"/>
+        <Caret Line="191" Column="31" TopLine="174"/>
       </Position15>
       <Position16>
-        <Filename Value="romunit.pas"/>
-        <Caret Line="1009" TopLine="975"/>
+        <Filename Value="ROM.lpr"/>
+        <Caret Line="195" Column="31" TopLine="174"/>
       </Position16>
       <Position17>
-        <Filename Value="romunit.pas"/>
-        <Caret Line="13" Column="64"/>
+        <Filename Value="ROM.lpr"/>
+        <Caret Line="198" Column="29" TopLine="174"/>
       </Position17>
       <Position18>
-        <Filename Value="romunit.pas"/>
-        <Caret Line="272" Column="22" TopLine="243"/>
+        <Filename Value="ROM.lpr"/>
       </Position18>
       <Position19>
-        <Filename Value="romunit.pas"/>
-        <Caret Line="276" Column="47" TopLine="265"/>
+        <Filename Value="ROM.lpr"/>
+        <Caret Line="16" Column="26"/>
       </Position19>
       <Position20>
-        <Filename Value="romunit.pas"/>
+        <Filename Value="ROM.lpr"/>
+        <Caret Line="173" Column="42" TopLine="144"/>
       </Position20>
       <Position21>
         <Filename Value="romunit.pas"/>
-        <Caret Line="30" Column="23"/>
+        <Caret Line="11" Column="24"/>
       </Position21>
       <Position22>
-        <Filename Value="ROM.lpr"/>
-        <Caret Line="206" Column="19" TopLine="153"/>
+        <Filename Value="romunit.pas"/>
+        <Caret Line="62" Column="46" TopLine="47"/>
       </Position22>
       <Position23>
         <Filename Value="romunit.pas"/>
-        <Caret Line="11" Column="24"/>
+        <Caret Line="11" Column="47"/>
       </Position23>
       <Position24>
         <Filename Value="romunit.pas"/>
-        <Caret Line="62" Column="71" TopLine="47"/>
+        <Caret Line="62" Column="47" TopLine="29"/>
       </Position24>
       <Position25>
         <Filename Value="romunit.pas"/>
-        <Caret Line="11" Column="77"/>
+        <Caret Line="152" Column="15" TopLine="139"/>
       </Position25>
       <Position26>
         <Filename Value="romunit.pas"/>
-        <Caret Line="27" Column="22"/>
+        <Caret Line="193" Column="27" TopLine="180"/>
       </Position26>
       <Position27>
         <Filename Value="romunit.pas"/>
-        <Caret Line="49" Column="91" TopLine="20"/>
+        <Caret Line="207" Column="25" TopLine="180"/>
       </Position27>
       <Position28>
-        <Filename Value="romunit.pas"/>
-        <Caret Line="62" Column="77" TopLine="56"/>
+        <Filename Value="ROM.lpr"/>
+        <Caret Line="197" Column="65" TopLine="165"/>
       </Position28>
       <Position29>
-        <Filename Value="romunit.pas"/>
-        <Caret Line="146" Column="15" TopLine="118"/>
+        <Filename Value="ROM.lpr"/>
+        <Caret Line="208" TopLine="191"/>
       </Position29>
       <Position30>
         <Filename Value="romunit.pas"/>
-        <Caret Line="206" Column="84" TopLine="193"/>
+        <Caret Line="22" Column="29" TopLine="3"/>
       </Position30>
     </JumpHistory>
+    <RunParams>
+      <FormatVersion Value="2"/>
+      <Modes Count="0" ActiveMode="default"/>
+    </RunParams>
   </ProjectSession>
 </CONFIG>
diff --git a/romunit.pas b/romunit.pas
index a3289c5..613124a 100644
--- a/romunit.pas
+++ b/romunit.pas
@@ -300,6 +300,10 @@ begin
   for i:=0 to length(outPuls)-2 do
     if outPuls[i+1]['x']<=outPuls[i]['x'] then
       writeln('Der Outpuls ist nicht sortiert!');
+  if length(inPuls)<2 then
+    writeln('Der Inpuls hat nur '+intToStr(length(inPuls))+' Datenpunkte!');
+  if length(outPuls)<2 then
+    writeln('Der Outpuls hat nur '+intToStr(length(outPuls))+' Datenpunkte!');
 
   // Extrema identifizieren
   exList[0]:=findeExtrema(inPuls,false);