summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2015-11-18 11:21:32 +0100
committerErich Eckner <git@eckner.net>2015-11-20 09:20:13 +0100
commit59bdb4597ff1807fe02fd1dd9ba3354ddbec48c8 (patch)
treefa8fe034157eb5b0bd01bc53508c6618d386fbe6
parentacb788aa47c3489962adfc2899cd5b167c4cbcaa (diff)
downloadFH-Wetter-59bdb4597ff1807fe02fd1dd9ba3354ddbec48c8.tar.xz
Zeiten zum Speichern werden jetzt auch gemessenzeitmessung
-rw-r--r--fhunit.pas16
-rw-r--r--pegelunit.pas10
2 files changed, 23 insertions, 3 deletions
diff --git a/fhunit.pas b/fhunit.pas
index d49166b..43c12b2 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -586,26 +586,36 @@ end;
procedure tMessPunkte.speichern(nach: string);
var
- sl: tMyStringList;
- pt: pointer;
- i: longint;
+ sl: tMyStringList;
+ pt: pointer;
+ i: longint;
+ z1,z2: extended;
begin
if rightstr(nach,4)='.txt' then begin // Rückfallebene: Text
+ z2:=-now;
sl:=tMyStringList.create;
for i:=0 to werte.count-1 do
sl.add(werte[i].schreibe);
+ z2:=z2+now;
+ z1:=-now;
sl.saveToFile(nach);
+ z1:=z1+now;
sl.free;
end
else begin
+ z2:=-now;
i:=werte.size;
getmem(pt,i+2*sizeof(longint));
pLongint(pt)^:=314159265; // magische Zahl
(pLongint(pt)+1)^:=0; // Version
werte.dump(pt+2*sizeof(longint));
+ z2:=z2+now;
+ z1:=-now;
saveToGeneric(nach,pt,i+2*sizeof(longint));
+ z1:=z1+now;
freemem(pt);
end;
+ writeln('Wetterzeiten: ',z1*24*60*60,' (Datei) ',z2*24*60*60,' (Konversion)');
end;
procedure tMessPunkte.achsenZeichnen(zuZeichnen: tMessGroeszenSet; startZeit,stopZeit: extended);
diff --git a/pegelunit.pas b/pegelunit.pas
index 9da6158..7cba3de 100644
--- a/pegelunit.pas
+++ b/pegelunit.pas
@@ -597,18 +597,24 @@ var
ps: tPegelStation;
pt: pointer;
i,len: longint;
+ z1,z2: extended;
begin
if rightStr(nach,4)='.txt' then begin // Rückfallebene: Text
+ z2:=-now;
sl:=tMyStringList.create;
for ps:=low(tPegelStation) to high(tPegelStation) do begin
sl.add('Station: '+Pegelstationsnamen[ps,0]);
for i:=0 to werte[ps].Count-1 do
sl.add(werte[ps][i].schreibe);
end;
+ z2:=z2+now;
+ z1:=-now;
sl.saveToFile(nach);
+ z1:=z1+now;
sl.free;
end
else begin
+ z2:=-now;
len:=2*sizeof(longint);
for ps:=low(tPegelStation) to high(tPegelStation) do
len:=len+werte[ps].size+sizeof(longint);
@@ -622,9 +628,13 @@ begin
werte[ps].dump(pt+i);
i:=i+werte[ps].size;
end;
+ z2:=z2+now;
+ z1:=-now;
saveToGeneric(nach,pt,len);
+ z1:=z1+now;
freemem(pt);
end;
+ writeln('Pegelzeiten: ',z1*24*60*60,' (Datei) ',z2*24*60*60,' (Konversion)');
end;
procedure tPegelStaende.achsenZeichnen(zuZeichnen: tPegelStationsSet; startZeit,stopZeit: extended);