summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ROM.lpi9
-rw-r--r--ROM.lps101
-rw-r--r--romunit.pas4
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);