Einzelnen Beitrag anzeigen

aps

Registriert seit: 21. Sep 2003
Ort: Hameln
62 Beiträge
 
Delphi 6 Professional
 
#4

Re: Mal wieder Probleme mit Threads

  Alt 8. Apr 2004, 10:19
Nachdem ich jetzt über eine Woche lang nichts am Projekt getan habe, fand ich den Fehler:

Delphi-Quellcode:
procedure TControlThread.OnlineThreadStopped(Sender: TObject);
// Thread freigeben
// und Anzahl der laufenden Threads aktualisieren
begin
  ControlCriticalSection.Acquire;
  Dec(ThreadCount);
  ControlCriticalSection.Release;
  (Sender as TOnlineThread).Free;
end;
Wenn ich die Zeile
(Sender as TOnlineThread).Free; entferne, läuft es so, wie gewünscht!

(Nur so als Hinweis, falls mal jemand vor dem gleichen Problem steht)
Andreas
  Mit Zitat antworten Zitat