In einem dyn. Array Werte verschieben

[jaenicke]

Zitat von turboPASCAL:

Zitat:

Eine zweite Schleife sollte aber auch nicht nötig sein, das sollte eigentlich gehen.

Nö, leider macht es dies allen Anschein nach nicht.

Also bei mir geht das:

Delphi-Quellcode:

procedure TForm164.Button1Click(Sender: TObject);
var
  a: array of array of Integer;
  i, j: Integer;
  tmp: String;
begin
  SetLength(a, 3);
  SetLength(a[0], 2);
  SetLength(a[1], 4);
  SetLength(a[2], 5);
  for i := 0 to High(a) do
    for j := 0 to High(a[i]) do
      a[i, j] := i + j shl 4;
  a[0] := a[2];
  tmp := '';
  for i := 0 to High(a) do
  begin
    for j := 0 to High(a[i]) do
      tmp := tmp + ', ' + IntToStr(a[i, j]);
    tmp := tmp + #13#10;
  end;
  ShowMessage(tmp);
end;

Zitat von turboPASCAL:

Zitat:

(Wenn die Prozedur nicht A heißen würde. )

Sorry, die anderen Buchstaben sind mir nicht Eingefallen.

Ging ja nur darum, dass das Beispiel so deshalb nicht geht.