Delphi - Mehrdimensionale Arrays

[nahpets]

Unabhängig von der Sinnhaftigkeit meines Beispiels, sowas geht:

Delphi-Quellcode:

program Test;

type
  tArrayOfInteger        = Array of Integer;
  tArrayOfArrayOfInteger = Array of tArrayOfInteger;
var
  EinMalEins : tArrayOfArrayOfInteger;
  i,k: Integer;
begin
  SetLength(EinMalEins,11);
  for i := low(EinMalEins) to high(EinMalEins) do SetLength(EinMalEins[i],11);
  WriteLn('EinmalEins berechnen:');
  for i := low(EinMalEins) to high(EinMalEins) do begin
    for k := low(EinMalEins[i]) to high(EinMalEins[i]) do begin
      EinMalEins[i][k] := i * k;
    end;
  end;
  WriteLn('EinmalEins ausgeben:');
  for i := low(EinMalEins) to high(EinMalEins) do begin
    for k := low(EinMalEins[i]) to high(EinMalEins[i]) do begin
      WriteLn(Format('i: %.3d, k: %.3d => %.3d',[i,k,EinMalEins[i][k]]));
    end;
  end;
  
  WriteLn('Irgendwas zuweisen');
  EinMalEins[0] := [100,200,300,400,500,600,700,800,900,000,110,120,130,140,150,160,170,180,190,200];
  WriteLn('Irgendwas ausgeben:');
  for i := low(EinMalEins) to high(EinMalEins) do begin
    for k := low(EinMalEins[i]) to high(EinMalEins[i]) do begin
      WriteLn(Format('i: %.3d, k: %.3d => %.3d',[i,k,EinMalEins[i][k]]));
    end;
  end;
end.