Ich habe ein dynamisches Array, dieses müsste ich in 'Sub'-Arrays zerlegen. Wie mache ich das am günstigsten?
Beispiel:

markieren

Delphi-Quellcode:

var
  Range : TStringArray;
  SubRange : array of TStringArray;

begin
  setlength(SubRange, MAXTHREADS);
  for i := 0 to MAXTHREADS - 1 do
  begin
    SubRange[i] := ???
  end;

Range ist das dynamische Array welches ich in die Arrays SubRange zerlegen will.

Wenn Range danach leere Strings enthalten darf, dann könntest du ja einfach die "Pointer" per Move rübercopieren und natürlich Range per FillChar auf 0 setzen, da es ja sonst nette Probleme der StringReferenzierung gibt ._.
(falls ja, könnte ich auch schnell mal 'nen winzigen DemoCode zusammenstellen)

Hallo Michael,

du hast kein Zerlegungskriterium angegeben, aber Copy() könnte dir behilflich sein:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  range: TStringDynArray;
  subRanges: array of TStringDynArray;
  i: Integer;
begin
  SetLength(range, 12);
  for i := Low(range) to High(range) do
    range[i] := 'Test-' + RandomStr(2);

  SetLength(subRanges, 4);
  for i := Low(SubRanges) to High(subRanges) do
    subRanges[i] := Copy(range, i * 3, 3);
end;

Grüße vom marabu

stimmt ja, COPY ging ja auch bei Arrays ... warum vergeß ich dat ständig nur

Es gibt kein, bis auf die Tatsache, dass die Reihenfolge erhaklten bleiben sollte.

@marabu: Warum wird i ausgerechnet mit 3 multipliziert und warum die Länge 3?

@himitsu: Ja, ich glaube, das ist es. Besten Dank.

Grml. Warum fehtl der Code aufeinmal in himitsus Posting?

hatte erst mabarus Code falsch verstanden, und weil unsere Codes sich ja "fast" glaichen meinen dann wieder gelöscht ^_^

markieren

Delphi-Quellcode:

SetLength(subRanges, (Length(Ranges) - 1) div MaxRange + 1);
for i := 0 to High(subRanges) do
  subRanges[i] := Copy(Range, i * MaxRange, MaxRange);

So muss es heißen:

zusammenfalten · markieren

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;

Nicht so?

markieren

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;

Zitat von Luckie:

Warum wird i ausgerechnet mit 3 multipliziert und warum die Länge 3?

Weil ich kein Zerlegungskriterium hatte, habe ich den range einfach in 4 gleich große Teile zerlegt. Ich hoffte, du würdest den Code an deine Bedürfnisse anpassen können. Es sollte ja nur die ordnungserhaltende Zerlegung demonstriert werden.

marabu

Ja, es hatte mich nur etwas verwirrt, warum ausgerecht gerade die drei.