summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--fhunit.pas17
-rw-r--r--wetter.lps114
2 files changed, 74 insertions, 57 deletions
diff --git a/fhunit.pas b/fhunit.pas
index f4e5edc..7a5b570 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -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
diff --git a/wetter.lps b/wetter.lps
index 2fafbe5..7e4ef56 100644
--- a/wetter.lps
+++ b/wetter.lps
@@ -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>