Array aufteilen

[Luckie]

So muss es heißen:

Delphi-Quellcode:

setlength(SubRange, MAXTHREADS);
len := (length(Range)-1) div MAXTHREADS + 1;
for i := 0 to MAXTHREADS - 1 do
begin
  setlength(SubRange[i], len);
  SubRange[i] := copy(Range, i * len, len);
  New(ThreadParams);
  SetLength(ThreadParams.Range, length(SubRange[i]));
  ThreadParams.Range := SubRange[i];
  CloseHandle(BeginThread(nil, 0, @PingThread, ThreadParams, 0, ThreadID));
end;