diff options
author | Erich Eckner <git@eckner.net> | 2022-06-26 22:00:26 +0200 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2022-06-26 22:25:31 +0200 |
commit | 5089849fbebbbd9601cdcee1495ce90a5ae61279 (patch) | |
tree | ee94bf7532a401c0b93545aaf5d8ba8b66fc2e39 | |
parent | c6c2e8cf4b7eb1d8b8cd819359da210c86fcf5d4 (diff) | |
download | FH-Wetter-5089849fbebbbd9601cdcee1495ce90a5ae61279.tar.xz |
hat() neu
-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; |