1 files changed, 12 insertions, 0 deletions
diff --git a/fhunit.pas b/fhunit.pas
index 555999c..7a00db1 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -54,6 +54,7 @@ type
     function count: longint;
     property items[i: longint]: tMessPunkt
       read rItem; default;
+    function hat(zeit: extended): boolean;
     function minMaxY(startZeit,stopZeit: extended): tMessWerteExtPoints;
     procedure dump(p: pointer);
     procedure pmud(p: pointer; version,len: longint);
@@ -367,6 +368,17 @@ begin
   end;
 end;
 
+function tMessPunkteListe.hat(zeit: extended): boolean;
+var
+  i: longint;
+begin
+  result:=false;
+  i:=bisekt(zeit);
+  if (i<0) or (i>=count) then
+    exit;
+  result:= round((items[i].zeit - zeit) * 6 * 24) = 0;
+end;
+
 function tMessPunkteListe.statistics: string;
 var
   i,gaps: longint;