From 59bdb4597ff1807fe02fd1dd9ba3354ddbec48c8 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Wed, 18 Nov 2015 11:21:32 +0100
Subject: Zeiten zum Speichern werden jetzt auch gemessen

---
 fhunit.pas | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

(limited to 'fhunit.pas')

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);
-- 
cgit v1.2.3-54-g00ecf