1 files changed, 7 insertions, 0 deletions
diff --git a/pegelunit.pas b/pegelunit.pas
index bfa1d6b..9da6158 100644
--- a/pegelunit.pas
+++ b/pegelunit.pas
@@ -518,6 +518,7 @@ var
   psda,gefunden: boolean;
   i,len:         longint;
   pt:            pointer;
+  z1,z2:         extended;
 begin
   if not fileexists(von) then begin
     writeln('Pegeldatei '''+von+''' existiert nicht!');
@@ -525,8 +526,11 @@ begin
     exit;
   end;
 
+  z1:=-now;
   loadFromGeneric(von,pt,len);
+  z1:=z1+now;
 
+  z2:=-now;
   if pLongint(pt)^ <> 314159265 then begin // magische Zahl nicht gefunden -> Rückfallebene: Text!
     sl:=tMyStringList.create;
     setlength(s,len);
@@ -578,10 +582,13 @@ begin
       end;
     end{of case};
   end;
+  z2:=z2+now;
   freemem(pt);
 
   if not assigned(put) then
     put:=tPegelUpdateThread.create(self);
+
+  writeln('Pegelzeiten: ',z1*24*60*60,' (Datei) ',z2*24*60*60,' (Konversion)');
 end;
 
 procedure tPegelStaende.speichern(nach: string);