Ein Array in 3 einzelne Arrays teilen

Question

Ich habe 45 Werte in einem Array gespeichert, sample. Es muss in drei einzelne Arrays der Größe 15, sample1, sample2 und sample3 aufgeteilt werden: die ersten 15 Elemente in sample1, die nächsten 15 in sample2 und die restlichen 15 in sample3. Ich habe versucht, dass mit diesem Code zu tun:

var 
    sample: array of integer; // Source Array which contains data 
    sample1, sample2, sample3: array of integer; //Target arrays which needs to be worked upon 
    i: integer; 
begin 
SetLength(sample1, 15); 
SetLength(sample2, 15); 
SetLength(sample3, 15); 
for i := 0 to 14 do 
    sample[i] := sample1[i]; 
for i:= 15 to 29 do 
    sample[i] := sample2[i]; 
for i:= 30 to 44 do 
    sample[i] := sample3[i]; 
i := i + 1; 

Ich bin in der Lage, die Ergebnisse in der ersten Reihe zu bekommen, aber nicht in dem anderen Arrays. Was mache ich falsch?

Answer 1

Wenn ich Sie gut verstehe, ist das folgende was Sie wollen. Ich nehme an, Ihre sample Array genau 45 Elemente hat, so möchten Sie wahrscheinlich, dies zu tun:

var 
    sample: array of Integer; 
    sample1, sample2, sample3: array of Integer; 
    i: Integer; 
begin 
    SetLength(sample, 45); 
    { fill sample with values } 
    ... 
    { now split: } 
    SetLength(sample1, 15); 
    SetLength(sample2, 15); 
    SetLength(sample3, 15); 
    for i := 0 to 14 do 
    begin 
    sample1[i] := sample[i]; 
    sample2[i] := sample[i + 15]; { i = 0..14, so i+15 = 15..29 } 
    sample3[i] := sample[i + 30]; { i = 0..14, so i+30 = 30..44 } 
    end; 

Das sollte es tun. Wenn dies nicht das ist, was Sie wollten, sollten Sie Ihr Problem etwas besser spezifizieren. Wenn das Array sample länger ist, teilt dies nicht alles auf. Wenn Ihr Array sample kürzer ist, erhalten Sie einen Überlauf, der zu einem Fehler oder einem nicht definierten Verhalten führt.

Answer 2

Sie ordnen die Ziel-Arrays dem Quell-Array zu, und nicht umgekehrt. Und Sie verwenden sowieso die falsche Indizierung.

etwas mehr wie diese stattdessen versuchen:

var 
    sample: array of integer; 
    sample1, sample2, sample3: array of integer; 
    i: integer; 
begin 
    ... 
    SetLength(sample1, 15); 
    SetLength(sample2, 15); 
    SetLength(sample3, 15); 
    for i := 0 to 14 do 
    sample1[i] := sample[i]; 
    for i := 0 to 14 do 
    sample2[i] := sample[15+i]; 
    for i := 0 to 14 do 
    sample3[i] := sample[30+i]; 
    ... 

Alternativ:

var 
    sample: array of integer; 
    sample1, sample2, sample3: array of integer; 
    i: integer; 
begin 
    ... 
    SetLength(sample1, 15); 
    SetLength(sample2, 15); 
    SetLength(sample3, 15); 
    for i := 0 to 14 do 
    begin 
    sample1[i] := sample[i]; 
    sample2[i] := sample[15+i]; 
    sample3[i] := sample[30+i]; 
    end; 
    ... 

Da Ihr Ziel-Arrays ohnehin dynamisch ist, würde ich vorschlagen, mit Copy() statt jedes Handbuch bei allen Schleifen:

var 
    sample, sample1, sample2, sample3: array of integer; 
begin 
... 
sample1 := Copy(sample, 0, 15); 
sample2 := Copy(sample, 15, 15); 
sample3 := Copy(sample, 30, 15);