TThread und kein Ende in Sicht...

[DieDolly]

Bei mir bleibt dein Programm sogar komplett stehen, wenn ich auf Start drücke.
Ein Exit; direkt nach Begin von Thread Execute lässt das Programm auch hängen. Der Fehler könnte irgendwo davor oder danach sein aber nicht im Execute.

Wenn ich eine (1) Datei mit deinem Programm öffne kann man auch sehen, dass das Programm bis 50% der Progressbar reagiert und dann nicht mehr.


>
Das Problem hat irgendwas mit der Zeile
CT.OnTerminate := TerminateEvent;
zu tun. Lässt man die weg funktioniert alles.
Genauer gesagt liegt es am CT.Free;.

Ein FreeOnTerminate := True; ins Thread Create hilft und es gibt keine Speicherlecks. Aber ich weiß nicht, ob das die Lösung ist.

Ich glaube dein Ansatz mit dem TerminateSet und all das ist vergleichbar mit einer Person, die sich mit einem Presslufthammer den Fußboden im ersten Stock abbaut und noch drauf steht. Sicher bin ich mir aber nicht.