summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2022-06-26 21:59:27 +0200
committerErich Eckner <git@eckner.net>2022-06-26 22:25:31 +0200
commitdca1ca1cc17d67adcecbc2acb0ff7497d0ea1aea (patch)
tree2f68cae74ea67f86db9addbdc9c97c8d8b8c0e54
parentc58cd390dac8bfa93ca6966885ea19a45569a781 (diff)
downloadFH-Wetter-dca1ca1cc17d67adcecbc2acb0ff7497d0ea1aea.tar.xz
destroy sollte auch beenden
-rw-r--r--fhunit.pas1
-rw-r--r--pegelunit.pas1
2 files changed, 2 insertions, 0 deletions
diff --git a/fhunit.pas b/fhunit.pas
index a0cbd9a..7aba5dc 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -404,6 +404,7 @@ end;
destructor tMessPunkteUpdateThread.destroy;
begin
+ beenden:=true;
while not beendet do
sleep(100);
setlength(antwort,0);
diff --git a/pegelunit.pas b/pegelunit.pas
index 1432b9e..8180666 100644
--- a/pegelunit.pas
+++ b/pegelunit.pas
@@ -349,6 +349,7 @@ end;
destructor tPegelUpdateThread.destroy;
begin
+ beenden:=true;
while not beendet do
sleep(100);
setlength(antwort,0);