diff options
Diffstat (limited to 'fhunit.pas')
-rw-r--r-- | fhunit.pas | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -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; |