statistics: Gesamtlückengröße ausgeben

1 files changed, 4 insertions, 2 deletions

diff --git a/fhunit.pas b/fhunit.pas
index a1b2cbf..66ba1f6 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -382,7 +382,7 @@ end;
 
 function tMessPunkteListe.statistics: string;
 var
-  i,gaps: longint;
+  i,gaps,gap: longint;
 begin
   if count=0 then begin
     result:='leer';
@@ -390,13 +390,15 @@ begin
   end;
   result:='';
   gaps:=0;
+  gap:=0;
   for i:=count-1 downto 1 do
     if round((items[i].zeit - items[i-1].zeit) * 6 * 24) <> 1 then begin
       inc(gaps);
+      gap:=gap + round((items[i].zeit - items[i-1].zeit) * 6 * 24 - 1);
       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';
+  result:=result + intToStr(gaps) + ' Lücken, ' + intToStr(gap) + ' Messwerte';
 end;
 
 // tMessPunkteUpdateThread *****************************************************