länge eines 2-Dimensionalen und Dynamischen Array

[Medium]

Klassischer Off-By-One Fehler. Length() gibt die Länge des Arrays zurück, was bei 0-basierten Arrays um 1 über dem höchsten Index liegt. Du greifst also knapp dahinter => AV. Nutze High() oder Length()-1.

[Muetze1]

Und nochwas: Copy() liefert dir eine komplette Kopie zurück, somit kannst du dir das SetLength() auf dem Zielarray komplett sparen, wird dann bei der Zuweisung der Kopie danach eh komplett wieder abgeräumt...

[Teekeks]

Das hier geht leider auch nicht:

Delphi-Quellcode:

procedure TGame.InsertMap(aMap: TMap);
var x,y:integer;
begin
  _Act_X:=0;
  _Act_Y:=0;
  _Map_X:=High(aMap);
  _Map_Y:=High(amap[0]);
  _Map:=Copy(aMap);// hier bleibt er stecken...
end;

Fehlermeldung:
"Project raised exception class 'RunError(204)'."
Wisst ihr was ich jetzt falschmache?