1 files changed, 13 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);