diff options
-rw-r--r-- | fhunit.pas | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -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 ***************************************************** |