Wie würdet ihr das dann machen?
Ich hab solche arrays
array1: array[0..19] of array[0..3] of array[0..2] of Double = (((...)));
array2: array[0..5] of array[0..2] of array[0..2] of Double = (((...)));
array3: array[0..20] of array[0..2] of array[0..2] of Double = (((...)));
und arbeite die so ab:
Delphi-Quellcode:
for i := 0 to Pred(Length(array1)) do begin
for j := 0 to Pred(Length(array1[0])) do begin
Koordinate(array1[i][j][0], array1[i][j][1], array1[i][j][2]);
end;
end;
for i := 0 to Pred(Length(array2)) do begin
for j := 0 to Pred(Length(array2[0])) do begin
Koordinate(array2[i][j][0], array2[i][j][1], array2[i][j][2]);
end;
end;
for i := 0 to Pred(Length(array3)) do begin
for j := 0 to Pred(Length(array3[0])) do begin
Koordinate(array3[i][j][0], array3[i][j][1], array3[i][j][2]);
end;
end;
und da es insgesamt mehr als nur 3 arrays sind würde ich die gerne alle auf einmal abarbeiten. In etw so:
Delphi-Quellcode:
for i := 0 to 2 do begin
for j := 0 to Pred(Length(alles[i])) do begin
for k := 0 to Pred(Length(alles[i][j])) do begin
Koordinate(alles[i][j][k][0], alles[i][j][k][1], alles[i][j][k][2]);
end;
end;
end;
Oder wenn ich aus diesen arrays
array1: array[0..19] of array[0..3] of array[0..2] of Double = (((...)));
array2: array[0..5] of array[0..2] of array[0..2] of Double = (((...)));
array3: array[0..20] of array[0..2] of array[0..2] of Double = (((...)));
diese hier mache
array1: array[0..57] of array[0..2] of Double = ((...));
array2: array[0..10] of array[0..2] of Double = ((...));
array3: array[0..40] of array[0..2] of Double = ((...));
Also, dass ich ein 2-dimensionales array draus mache und nur noch die 1. Dimension unterschiedlich ist, die zweite nicht.
geht es dann?