From dca1ca1cc17d67adcecbc2acb0ff7497d0ea1aea Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Sun, 26 Jun 2022 21:59:27 +0200 Subject: destroy sollte auch beenden --- fhunit.pas | 1 + pegelunit.pas | 1 + 2 files changed, 2 insertions(+) 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); -- cgit v1.2.3-70-g09d2