Hallo Michael,
du hast kein Zerlegungskriterium angegeben, aber Copy() könnte dir behilflich sein:
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