diff options
| -rw-r--r-- | ROM.lpi | 9 | ||||
| -rw-r--r-- | ROM.lps | 101 | ||||
| -rw-r--r-- | romunit.pas | 4 |
3 files changed, 61 insertions, 53 deletions
@@ -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> @@ -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); |