1 files changed, 10 insertions, 0 deletions
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);