Correctly. Das
OnTest Event im Beispiel übernimmt die Aufgabe von
TThread.Execute. Ich möchte nicht jedes Mal
TThread.Execute für jede neue Aufgabe überschreiben, sondern im
OnTest Event den Ablauf und die Ergebnisse festlegen und bevor der Thread Free ist die Ergebnisse ausgeben.
Das Problem ist, die Ergebnisse sind nach Änderung noch default.
Delphi-Quellcode:
procedure TTestThread.Execute;
begin
Synchronize(DoTest);
end;
repeat
CheckSynchronize(10);
until FTest.Terminated;
Synchronize hat leider nicht geholfen und die Loop blocked die ganze Application.