1 files changed, 28 insertions, 0 deletions
diff --git a/fhunit.pas b/fhunit.pas
index 0590348..a0cbd9a 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -58,6 +58,7 @@ type
     procedure dump(p: pointer);
     procedure pmud(p: pointer; version,len: longint);
     function size: longint;
+    function statistics: string;
   end;
 
   tMessPunkteUpdateThread = class(tThread)
@@ -99,6 +100,7 @@ type
     function gesRegen: extended;
     function hintInfo: string;
     function mehrInfos(was: tMessGroeszenSet): string;
+    function statistics: string;
   end;
 
 procedure uZeit2mZeit(uZ: extended; out mZ: tZeit);
@@ -363,6 +365,25 @@ begin
   end;
 end;
 
+function tMessPunkteListe.statistics: string;
+var
+  i,gaps: longint;
+begin
+  if count=0 then begin
+    result:='leer';
+    exit;
+  end;
+  result:='';
+  gaps:=0;
+  for i:=count-1 downto 1 do
+    if round((items[i].zeit - items[i-1].zeit) * 6 * 24) <> 1 then begin
+      inc(gaps);
+      result:=result + dateTimeToStr(items[i-1].zeit) + ' -> ' + dateTimeToStr(items[i].zeit) + #10;
+    end;
+  result:=result + intToStr(count) + ' Werte von ' + dateTimeToStr(items[0].zeit) + ' bis ' + dateTimeToStr(items[count-1].zeit) + #10;
+  result:=result + intToStr(gaps) + ' Lücken';
+end;
+
 // tMessPunkteUpdateThread *****************************************************
 
 constructor tMessPunkteUpdateThread.create(besitzer: tMessPunkte; tNum,tAnz: longint);
@@ -595,6 +616,8 @@ begin
     werte.pmud(pt+2*sizeof(longint),(pLongint(pt)+1)^,len-2*sizeof(longint));
   freemem(pt);
 
+  writeln('Messwerte geladen:' + #10 + werte.statistics);
+
   if length(muts)=0 then begin
     setlength(muts,20);
     for i:=0 to length(muts)-1 do
@@ -753,6 +776,11 @@ begin
       result:=result+#13+floattostr(werte.last.mW[mG])+maszEinheit[mG];
 end;
 
+function tMessPunkte.statistics: string;
+begin
+  result:=werte.statistics;
+end;
+
 // allgemeine Funktionen *******************************************************
 
 procedure uZeit2mZeit(uZ: extended; out mZ: tZeit);