wenn du ein Array von Thread hast dann so:
Delphi-Quellcode:
//Thread erstellen
for i := 0 to length(ThreadArray) - 1 do
begin
ThreadArray[i] := TThread.Create(True);
ThreadArray[i].OnTerminate := ThreadTerminateProc;
end;
fCurrThreadIndex := 0;
ThreadArray[fCurrThreadIndex].Resume;
[...]
procedure TForm1.ThreadTerminateProc(Sender: TObject);
begin
inc(fCurrThreadIndex);
if fCurrThreadIndex < Length(ThreadArray) then
ThreadArray[fCurrThreadIndex].Resume;
end;
Ist ungetestet sollte aber die Vorgehensweise verdeutlichen...