Aufgaben auf Threads aufteilen?

[Duffy]

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

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