Mehrere Threads nacheinander ausführen

**Sascha L**

Also:

Ich habe eine ChecklistBox, wo alle Festplatten/Partitionen aufgelistet werden.

Dann habe ich einen Record:

Delphi-Quellcode:

			type

  TSelectedDrives = record

    Drive: string;

    Selected: Boolean;

  end;

Und davon dann natürlich einen Array, der so lang ist, wie es Festplatten/Partitionen gibt.

Mit einer Schleife überprüfe ich dann, welche Laufwerke ausgewählt sind (checked) und setzte dann im Array "Selected" auf true.

Das funktioniert alles 100% richtig.

Dann habe ich noch die Klasse TSearchThread mit folgender Execute-Prozedure und folgendem Create-Constructor:

zusammenfalten · markieren

Delphi-Quellcode:

			constructor TSearchThread.Create(path:string);

begin

   fpath:=path;

   inherited Create(true);

end;

procedure TSearchThread.Execute;

  var

i:integer;

liste: TStringList;

begin

   liste := TStringList.Create;

   GetFilesInDirectory(fpath,'*.exe',liste,true,true); // Funktion hier aus der CodeLibary

   frmSearchdlg.Memo1.Lines.AddStrings(liste);

   liste.Free;

end;

Ja ich müsste eigentlich mit Synchronize arbeiten, aber das tut jetzt ja nichts zur Sache...

Dann habe ich noch einen Thread der dann alle SearchTreads nacheinander ausführen soll (s. obere Posts).

Und natürlich noch der Code für den SearchThread-Array:

markieren

Delphi-Quellcode:

			SetLength(SearchThread,0);

   for i := 0 to Length(SelectedDrives) - 1 do begin

     if SelectedDrives[i].Selected then begin

       SetLength(SearchThread,Length(SearchThread)+1);

       SearchThread[Length(SearchThread)-1] := TSearchThread.Create(SelectedDrives[i].Drive);

       SearchThread[Length(SearchThread)-1].OnTerminate := ThreadTerminateProc;

     end;

   end;

   Threads := TThreads.Create(false); // Dieser Thread macht dann SearchThread[i].Resume

   Threads.FreeOnTerminate := true;

Der SearchThread-Array ist auch korrekt. Wie gesagt, wird aber immer nur der letzte von allen SearchThreads ausgeführt.

Mehrere Threads nacheinander ausführen

Re: Mehrere Threads nacheinander ausführen

Forumregeln