summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2022-06-26 22:00:26 +0200
committerErich Eckner <git@eckner.net>2022-06-26 22:25:31 +0200
commit5089849fbebbbd9601cdcee1495ce90a5ae61279 (patch)
treeee94bf7532a401c0b93545aaf5d8ba8b66fc2e39
parentc6c2e8cf4b7eb1d8b8cd819359da210c86fcf5d4 (diff)
downloadFH-Wetter-5089849fbebbbd9601cdcee1495ce90a5ae61279.tar.xz
hat() neu
-rw-r--r--fhunit.pas12
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;