Pseudocode:
Delphi-Quellcode:
BytesPerTask = NumberOfBytes div TaskCount);
for i := 0 to TaskCount - 2 do
StartTask(i (* Task ID *), i * BytesPerTask (* First byte the Task processes *), BytesPerTask (* Number of bytes the task processes*) );
// der letzte task kriegt den Rest, niemals mehr als (BytesPerTask + NumberOfBytes)
StartTask(i, (TaskCount - 1) * BytesPerTask, NumberOfBytes - ((TaskCount - 1) * BytesPerTask));
P.S.: Diesmal kam sogar der rote Kasten, aber jetzt habe ich das extra getippt, jetz' schick' ich des auch los.