Threads in Schleife erstellen

[quakergod]

hi, ich würde gerne folgenden code:

Delphi-Quellcode:

    DLThread1 := TptDownload.Create;
    with DLThread1 do
    begin
      FreeOnTerminate := True;
      Resume;
    end;
    delay(200);
    DLThread2 := TptDownload.Create;
    with DLThread2 do
    begin
      FreeOnTerminate := True;
      Resume;
    end;

in eine Schleife packen.

[pseudocode]
for i:=1 to anzahl do
begin
with DLThread[i] do
begin
....
[/pseudocode]

weiss jemand da ne möglichkeit? :gruebel:

sowas wie findcomponent() funktioniert leider nicht.

greetz

[sniper_w]

Eine List würde da vielleicht helfen...

Delphi-Quellcode:

var 
  ThreadList:TList;// muss vorher erzeugt werden....OnCreate Z.B.
  Thread:TThread;
begin
for i:=0 to Max_Threads-1 do
begin
  Thread := TThread.Create();
  with Thread do
  begin
  // etwas mit Thread machen
  end;
  ThreadList.Add( Thread );
end;
end;

[quakergod]

hi, erstmal danke für deine antwort!

ich hab die threads aber global deklariert:

Delphi-Quellcode:

DLThread1: TptDownload;
DLThread2: TptDownload;
DLThread3: TptDownload;
DLThread4: TptDownload;
DLThread5: TptDownload;

und es wäre gut wenn ich das so lassen könnte..

der user kann auswählen mit wievielen threads (von 1-5) er arbeiten möchte und ich würde gerne von i:=1 to anzahl die threads erstellen.

geht das auch?

[Thanatos81]

Wie wärs denn mit

Delphi-Quellcode:

DLThread : arrry[0..4] TptDownload

Dann müsstest du die hinterher mit DlThread[i] ansprechen können.