Ich habe folgendes Problem:
Ich hab mir zum Testen ein kleines Multithread-Programm geschrieben.
Man soll angeben können, wieviele Aufgaben zu erledigen sind, und wieviele Threads gestartet werden sollen.
Funktioniert auch fast.
Ich habe ein Problem mit der Aufteilung.
Mir fällt nicht ein wie ich das lösen soll, dass z.B. 9 Aufgaben auf fünf Thrads verteilt werden sollen.
Dividieren kann ich nicht, da sonst immer eine Ganze zahl rauskommt, und 9 kein vielfaches von 5 ist.
Es müssten also vier Threads jeweils 2 Aufgaben ausführen, und ein Thread nur eine.

Hoffentlich kapiert jetzt noch einer was ich meine

Hallo josef,

Zitat von josef:

Dividieren kann ich nicht, da sonst immer eine Ganze zahl rauskommt, und 9 kein vielfaches von 5 ist.

mach es doch so

markieren

Delphi-Quellcode:

var
  AnzAufgabenJeThread: Integer;
begin
  AnzAufgabenJeThread := AnzAufgaben div AnzThreads;
  if (AnzAufgaben mod AnzThreads) > 0 then
    Inc(AnzAufgabenJeThread);
end;

jetzt einfach auf jeden Thread mit AnzAufgabenJeThread die Aufgaben verteilen bis AnzAufgaben = 0 ist.

bye
Claus

Wie genau sind Deine Aufgaben organisiert (command pattern)? Wenn Du ohnehin einen Pool von Aufgaben hast (Stapelspeicher, Stack), könnte ein Thread sich an diesen Pool verwenden (Singelton), um die nächste Aufgabe entgegen zunehmen und gleichzeig vom Stapel entfernen (Pop)...
Vielleicht hilft dir thread producer consumer weiter?

Vielen Dank!
Ihr habt mir beide sehr geholfen
Mal schauen wie ich es Mach