Thread stoppt nicht?

[Zerolith]

Zitat von m.wollert:

Innerhalb Deines Creates wird der Thread direkt ausgeführt -- kann sein, daß der Event-Handler hier schon garnicht mehr gesetzt wird, weil der Thread bereits durch ist... Kann mich aber auch täuschen.

Versuche es mal mit dem abgeleiteten Create: // HAB ICH SCHONMAL

inherited Create(TRUE); und in Deinem With-Block so: // DITO

Delphi-Quellcode:

With TSyncThread.Create(Console, DB) do
begin
  OnTerminate := ThreadIsDone;
  Resume;
end;

[edit] Vor allem sollte FreeOnTerminate noch gesetzt werden, weil sonst der Speicher nicht mehr freigegeben wird! [/edit]


Fehlt in der Abfrage nicht ein abschliessendes Semikolon? (*Nur mal so frag*) // Eigtl nur wenn mehr als eine SQL Anweißung sonst kann man das imho weglassen

SQL.SQL := 'SELECT * FROM z_wct_configs[b];[/b]';

Aber Danke