Zeiten zum Speichern werden jetzt auch gemessenzeitmessung

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);