Array aufteilen

[himitsu]

Nicht so?

Delphi-Quellcode:

len := (Length(Range) - 1) div MAXTHREADS + 1;
for i := 0 to (Length(Range) - 1) div len do
begin
  New(ThreadParams);
  ThreadParams^.Range := Copy(Range, i * len, len);
  CloseHandle(BeginThread(nil, 0, @PingThread, ThreadParams, 0, ThreadID));
end;