Setlength, mehrdimensionales Array?

[shareholder]

Moin,

wie kann ich zur Laufzeit
ein Array in dieser Form anlegen: ??

A[1][1]
A[1][2]
A[2][1]
A[2][2]
A[3][1]
...

danke

[StefanDP]

Delphi-Quellcode:

var
  a: array of array of ....  // edit: so muss es sein!

...

setlength(a,3);
setlength(a[1],2);
setlength(a[2],2);
setlength(a[3],1);

...

ungetestet

stefan

[toms]

Hi,

Ein Beispiel:

Delphi-Quellcode:

var
  multiArray  : array of array of Word;
  i, j : Integer;
begin
  // Länge des mehrdimensionalen Array setzen:
  SetLength(multiArray, 2, 3);

  // Array auffüllen mit Werten:
  for i := 0 to 1 do
    for j := 0 to 2 do
    begin
      multiArray[i,j] := i + j // Irgend eine Integer Zahl zuweisen
    end;
end;

[StefanDP]

Zitat von toms:

Hi,

Ein Beispiel:

Delphi-Quellcode:

var
  multiArray  : array of array of Word;
  i, j : Integer;
begin
  // Länge des mehrdimensionalen Array setzen:
  SetLength(multiArray, 2, 3);

  // Array auffüllen mit Werten:
  for i := 0 to 1 do
    for j := 0 to 2 do
    begin
      multiArray[i,j] := i + j // Irgend eine Integer Zahl zuweisen
    end;
end;

"optimiert":

Delphi-Quellcode:

var
  multiArray  : array of array of Word;
  i, j : Integer;
begin
  // Länge des mehrdimensionalen Array setzen:
  SetLength(multiArray, 2, 3);

  // Array auffüllen mit Werten:
  for i := Low(multiArray) to High(multiArray) do
    for j := Low(multiArray[i]) to High(multiArray[j]) do
    begin
      multiArray[i,j] := i + j // Irgend eine Integer Zahl zuweisen
    end;
end;