Code: Alles auswählen
PROCEDURE TestThread()
i is int = 5
bStop is boolean
WHILE NOT bStop
STC_TotalSize = Left(Now(),6)
Wait(300)
i -= 1
IF i = 0 THEN
bStop = True
END
END
STC_TotalSize = "End"
RESULT True
Hier der Übeltäter:
Code: Alles auswählen
Wait(300)
Code: Alles auswählen
ThreadPause(300)
Sobald ein Wait drin ist geht das nicht.
Schon wieder was (undokumentiertes) gelernt.
--
http://arnoldconsult.de