Hallo,

ich habe ein Problem wenn ich einen Thread vorzeitig beenden will.

Ich lasse den Thread in einer For Schleife einige Daten in ein TStringGrid eintragen.
Dies kann bis zu 10 Sekunden dauern. Damit die Form dabei nicht einfriert habe ich ein Application.ProcessMessages drinnen.

Möchte ich nun aber nach 5s schon abrechen indem ich Terminate und WaitFor aufrufe belibt es bei WaitFor stehen. Wenn das Update des TStringGirds fertig ist kann ich ohne Probleme den Thread beenden.

Ein Versuch auf diese Art geht nicht:

markieren

Delphi-Quellcode:

if not Terminated then
Application.ProcessMessages

Das Terminated bleibt auf False und dadurch bleibt es wieder hängen.

Application.ProcessMessages gefällt mir sowieso nicht aber wie kann man ansonsten ein "angebliches" Einfrieren der Anwendung verhindern?

Wie lässt Du denn die Daten in das Stringgrid eintragen, hoffentlich synchronized...
Der Thread muss das Terminated beachten, wenn Du eine Schleife hast könnte das so aussehen.

markieren

Delphi-Quellcode:

i := 0;
While (i < 10) and not Terminated do
  begin
    Tuwas;
    Synchronize(MeineThreadGridBefüllmethode);
    inc(i);
  end;

Vielleicht liegt auch eine gedankliche Vermischung vor?
Wie ist denn Dein Thread gestaltet? Hast Du ein eigene Thread-Objekt abgeleitet oder nutzt Du tatsächlich wie es aussieht Application.ProcessMessages als Thread?

Leider kann man Deinem Code-Snippet keine Angaben entnehmen.

Gib mal den gesamten Code vom Thread und vom Befüllen des StringGrids.

Die lange Zeit für das Befüllen kann auch daher kommen, dass du das StringGrid nicht mit BeginUpdate/EndUpdate auf eine Menge Daten vorbereitest.
Für dieses Befüllen würde ich mit Queue statt mit Synchronize arbeiten (warum soll der Thread warten, bis die Daten im StringGrid angekommen sind)

Warum wartest du überhaupt mit WaitFor auf den Thread?
MyThread.FreeOnTerminate := True und der entfernt sich selber aus dem Speicher.
Die ThreadVariable MyThread kannst beim Event OnTerminate auf nil setzen und gut.
Oder du führst ein eigenen Event ein OnDestroy und setzt dabei MyThread auf nil.

Application.ProcessMessages in einem Thread aufzurufen ist absolut tabu!

Zitat von Sir Rufo:

Application.ProcessMessages in einem Thread aufzurufen ist absolut tabu!

Genau das meinte ich auch mit gedankliche Vermischung. Es werden für Anfänger gern mal Threads mit Application.ProcessMessages oder Application.OnIdle verglichen, um dann zur Klasse TThread überzuleiten.

Daher dachte ich, auf diese Weise könnte sich ein Fehler eingeschlichen haben. Schließlich dürfte die GUI bei Ablauf eines zusätzlichen Threads eben genau nicht einfrieren, ansonsten würde das ganze ja keinen Sinn ergeben.

Er hat definitiv einen Thread benutzt, denn sonst macht Terminated und WaitFor keinen Sinn.

Und wenn das StringGrid ständig mit neuen Daten befeuert wird und dabei ein Neuzeichnen nach sich zieht dann ist die Anwendung ganz schön am kochen.
Wenn im Thread jetzt auch noch jedes Mal Synchronize aufgerufen wird, dann kann ich mir den Thread auch sparen.

Besser wäre es, den Thread die Daten komplett holen zu lassen und dann in einem Rutsch an das StringGrid zu übergeben.

Es könnte aber zusätzlich auch noch folgender Fehler vorliegen:

markieren

Delphi-Quellcode:

MyThread := TMyThread.Create( True );
MyThread.Execute;