Messung der Zeit zum Einlesen und Konvertieren der gespeicherten Daten

2 files changed, 18 insertions, 5 deletions

diff --git a/fhunit.pas b/fhunit.pas
index f4e5edc..d49166b 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -544,11 +544,12 @@ end;
 
 procedure tMessPunkte.laden(von: string);
 var
-  sl:  tMyStringList;
-  pt:  pointer;
-  len: longint;
-  s:   string;
-  i:  longint;
+  sl:    tMyStringList;
+  pt:    pointer;
+  len:   longint;
+  s:     string;
+  i:     longint;
+  z1,z2: extended;
 begin
   if not fileexists(von) then begin
     writeln('Messwertedatei '''+von+''' existiert nicht!');
@@ -556,8 +557,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);
@@ -569,6 +573,7 @@ begin
   end
   else
     werte.pmud(pt+2*sizeof(longint),(pLongint(pt)+1)^,len-2*sizeof(longint));
+  z2:=z2+now;
   freemem(pt);
 
   if length(muts)=0 then begin
@@ -576,6 +581,7 @@ begin
     for i:=0 to length(muts)-1 do
       muts[i]:=tMessPunkteUpdateThread.create(self,i,length(muts));
   end;
+  writeln('Wetterzeiten: ',z1*24*60*60,' (Datei) ',z2*24*60*60,' (Konversion)');
 end;
 
 procedure tMessPunkte.speichern(nach: string);
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);