Sicherlich ist dieses verhalten durch so eine Art schleife zu bewirken, indem ich den Threadzähler auf 2 setzte und Quicksort hier herein kopiere, dock ist die Methodik doch reichlich unelegant find ich?Kann man so was nicht auch durch eine normale schleife erreichem?
Delphi-Quellcode:
procedure TThreadSortForm.ThreadDone(Sender: TObject);
begin
Dec(ThreadsRunning);
if ThreadsRunning = 0
then
begin
with TQuickSort.Create(QuickSortBox, QuickSortArray)
do
Begin
OnTerminate := ThreadDone;
end;
StartBtn.Enabled := True;
ArraysRandom := False;
Label4.Caption:='
2';
ThreadSortForm.StartBtn.Click;
end;
end;