diff options
| -rw-r--r-- | fhunit.pas | 17 | ||||
| -rw-r--r-- | wetter.lps | 114 |
2 files changed, 74 insertions, 57 deletions
@@ -549,6 +549,9 @@ var len: longint; s: string; i: longint; + fi: file; + ma,mi: extended; + lw: longword; begin if not fileexists(von) then begin writeln('Messwertedatei '''+von+''' existiert nicht!'); @@ -571,6 +574,20 @@ begin werte.pmud(pt+2*sizeof(longint),(pLongint(pt)+1)^,len-2*sizeof(longint)); freemem(pt); + assignfile(fi,'/tmp/temperatur.roh'); + rewrite(fi,1); + ma:=werte[0].mW[mgTemperatur]; + mi:=ma; + for i:=1 to werte.count-1 do begin + ma:=max(ma,werte[i].mW[mgTemperatur]); + mi:=min(mi,werte[i].mW[mgTemperatur]); + end; + for i:=0 to werte.count-1 do begin + lw:=round((werte[i].mW[mgTemperatur]-mi)/(ma+mi)*$ffffffff); + blockwrite(fi,lw,sizeof(lw)); + end; + closefile(fi); + if length(muts)=0 then begin setlength(muts,20); for i:=0 to length(muts)-1 do @@ -18,8 +18,8 @@ <HasResources Value="True"/> <ResourceBaseClass Value="Form"/> <UnitName Value="Unit1"/> - <TopLine Value="280"/> - <CursorPos X="26" Y="201"/> + <TopLine Value="111"/> + <CursorPos Y="143"/> <UsageCount Value="59"/> <Loaded Value="True"/> <LoadedDesigner Value="True"/> @@ -33,9 +33,10 @@ <Unit3> <Filename Value="fhunit.pas"/> <IsPartOfProject Value="True"/> + <IsVisibleTab Value="True"/> <EditorIndex Value="3"/> - <TopLine Value="573"/> - <CursorPos X="18" Y="600"/> + <TopLine Value="545"/> + <CursorPos X="14" Y="576"/> <UsageCount Value="59"/> <Loaded Value="True"/> </Unit3> @@ -57,9 +58,8 @@ </Unit5> <Unit6> <Filename Value="pegelunit.pas"/> - <IsVisibleTab Value="True"/> <EditorIndex Value="5"/> - <TopLine Value="478"/> + <TopLine Value="438"/> <CursorPos X="64" Y="508"/> <UsageCount Value="28"/> <Loaded Value="True"/> @@ -141,123 +141,123 @@ </Units> <JumpHistory Count="30" HistoryIndex="29"> <Position1> - <Filename Value="unit1.pas"/> - <Caret Line="72" Column="70" TopLine="62"/> + <Filename Value="../units/fileunit.pas"/> + <Caret Line="134" TopLine="96"/> </Position1> <Position2> - <Filename Value="unit1.pas"/> - <Caret Line="301" Column="19" TopLine="276"/> + <Filename Value="../units/fileunit.pas"/> + <Caret Line="46" Column="29" TopLine="21"/> </Position2> <Position3> - <Filename Value="unit1.pas"/> - <Caret Line="35"/> + <Filename Value="../units/fileunit.pas"/> + <Caret Line="84" Column="23" TopLine="53"/> </Position3> <Position4> - <Filename Value="unit1.pas"/> - <Caret Line="308" Column="19" TopLine="273"/> + <Filename Value="../units/fileunit.pas"/> + <Caret Line="141" Column="7" TopLine="106"/> </Position4> <Position5> - <Filename Value="unit1.pas"/> - <Caret Line="305" Column="36" TopLine="272"/> + <Filename Value="../units/fileunit.pas"/> + <Caret Line="27" TopLine="20"/> </Position5> <Position6> - <Filename Value="fhunit.pas"/> - <Caret Line="608" Column="15" TopLine="576"/> + <Filename Value="../units/fileunit.pas"/> + <Caret Line="133" Column="13" TopLine="110"/> </Position6> <Position7> <Filename Value="../units/fileunit.pas"/> - <Caret Line="30" Column="40" TopLine="3"/> + <Caret Line="31" TopLine="9"/> </Position7> <Position8> <Filename Value="../units/fileunit.pas"/> - <Caret Line="101" Column="42" TopLine="78"/> + <Caret Line="216" Column="11" TopLine="177"/> </Position8> <Position9> <Filename Value="../units/fileunit.pas"/> - <Caret Line="25" Column="42" TopLine="18"/> + <Caret Line="153" TopLine="147"/> </Position9> <Position10> <Filename Value="../units/fileunit.pas"/> - <Caret Line="134" TopLine="96"/> + <Caret Line="168" Column="18" TopLine="135"/> </Position10> <Position11> <Filename Value="../units/fileunit.pas"/> - <Caret Line="46" Column="29" TopLine="21"/> + <Caret Line="160" Column="21" TopLine="140"/> </Position11> <Position12> <Filename Value="../units/fileunit.pas"/> - <Caret Line="84" Column="23" TopLine="53"/> + <Caret Line="173" TopLine="143"/> </Position12> <Position13> - <Filename Value="../units/fileunit.pas"/> - <Caret Line="141" Column="7" TopLine="106"/> + <Filename Value="pegelunit.pas"/> + <Caret Line="528" Column="18" TopLine="515"/> </Position13> <Position14> <Filename Value="../units/fileunit.pas"/> - <Caret Line="27" TopLine="20"/> + <Caret Line="26" Column="62" TopLine="17"/> </Position14> <Position15> - <Filename Value="../units/fileunit.pas"/> - <Caret Line="133" Column="13" TopLine="110"/> + <Filename Value="unit1.pas"/> + <Caret Line="84" Column="72" TopLine="67"/> </Position15> <Position16> - <Filename Value="../units/fileunit.pas"/> - <Caret Line="31" TopLine="9"/> + <Filename Value="unit1.pas"/> </Position16> <Position17> - <Filename Value="../units/fileunit.pas"/> - <Caret Line="216" Column="11" TopLine="177"/> + <Filename Value="unit1.pas"/> + <Caret Line="258" Column="54" TopLine="221"/> </Position17> <Position18> - <Filename Value="../units/fileunit.pas"/> - <Caret Line="153" TopLine="147"/> + <Filename Value="unit1.pas"/> + <Caret Line="203" TopLine="203"/> </Position18> <Position19> - <Filename Value="../units/fileunit.pas"/> - <Caret Line="168" Column="18" TopLine="135"/> + <Filename Value="unit1.pas"/> + <Caret Line="220" Column="36" TopLine="180"/> </Position19> <Position20> - <Filename Value="../units/fileunit.pas"/> - <Caret Line="160" Column="21" TopLine="140"/> + <Filename Value="unit1.pas"/> + <Caret Line="205" Column="64" TopLine="197"/> </Position20> <Position21> - <Filename Value="../units/fileunit.pas"/> - <Caret Line="173" TopLine="143"/> + <Filename Value="../units/gitupdateunit.pas"/> + <Caret Line="33" Column="29" TopLine="30"/> </Position21> <Position22> - <Filename Value="pegelunit.pas"/> - <Caret Line="528" Column="18" TopLine="515"/> + <Filename Value="unit1.pas"/> + <Caret Line="201" Column="26" TopLine="108"/> </Position22> <Position23> - <Filename Value="../units/fileunit.pas"/> - <Caret Line="26" Column="62" TopLine="17"/> + <Filename Value="fhunit.pas"/> + <Caret Line="90" Column="20" TopLine="68"/> </Position23> <Position24> - <Filename Value="unit1.pas"/> - <Caret Line="84" Column="72" TopLine="67"/> + <Filename Value="fhunit.pas"/> + <Caret Line="545" Column="28" TopLine="542"/> </Position24> <Position25> - <Filename Value="unit1.pas"/> + <Filename Value="fhunit.pas"/> + <Caret Line="59" Column="15" TopLine="37"/> </Position25> <Position26> - <Filename Value="unit1.pas"/> - <Caret Line="258" Column="54" TopLine="221"/> + <Filename Value="fhunit.pas"/> + <Caret Line="39" Column="19" TopLine="16"/> </Position26> <Position27> - <Filename Value="unit1.pas"/> - <Caret Line="203" TopLine="203"/> + <Filename Value="fhunit.pas"/> + <Caret Line="59" Column="19" TopLine="23"/> </Position27> <Position28> - <Filename Value="unit1.pas"/> - <Caret Line="220" Column="36" TopLine="180"/> + <Filename Value="fhunit.pas"/> + <Caret Line="239" Column="26" TopLine="203"/> </Position28> <Position29> <Filename Value="unit1.pas"/> - <Caret Line="205" Column="64" TopLine="197"/> + <Caret Line="143" TopLine="111"/> </Position29> <Position30> - <Filename Value="../units/gitupdateunit.pas"/> - <Caret Line="33" Column="29" TopLine="30"/> + <Filename Value="fhunit.pas"/> + <Caret Line="90" Column="20" TopLine="69"/> </Position30> </JumpHistory> </ProjectSession> |