Array ändert sich von allein

[peter314]

Hallo allerseits.

Bei folgendem Text tritt ein kleines Problem auf, zu dem mir leider keine Lösung einfällt.

Delphi-Quellcode:

procedure TForm1.tausch(nr,num: integer);
var
speicher: integer; //zwischenspeicher für die zu tauschende Zahl
begin
ZugPos[nr]:= ZugPos[nr-1];                //ZugPos ist ein Array of Array of Array[0..1] of integer
speicher:= ZugPos[nr,num div 4,num mod 2];
ZugPos[nr,num div 4,num mod 2]:= ZugPos[nr,num div 4+1,num mod 2];
ZugPos[nr,num div 4+1,num mod 2]:= speicher;
end;

Dabei ändert sich ZugPos[nr] so wie es soll, jedoch wird dabei auch ZugPos[nr-1] verändert, sodass am Ende der prozedur beide Die gleichen Werte haben.

Ich hab gehört, dass durch die Übertragung der Werte ZugPos[nr]:= ZugPos[nr-1] nicht nur die Werte übergeben werden sondern auch der Speicherplatz. Damit meine ich das beide anschließend am Selben Ort gespeichert sind und somit auch die gleichen Werte haben.

Ob das nun stimmt oder auch nicht kennt irgendjemand eine Lösung für das Problem?

Danke

[Hawkeye219]

Hallo,

mit der Funktion Copy kann man eindeutige Kopien anlegen:

Delphi-Quellcode:

// ZugPos[nr]:= ZugPos[nr-1];
ZugPos[nr] := Copy(ZugPos[nr - 1]);

Gruß Hawkeye

[peter314]

Danke jetzt funktionierts. Sogar das ganze Programm läuft vernünftig.
Bekomme jetzt leider nen Stack overflow aber den krieg ich auch noch weg.

Danke nochmals.

[Corpsman]

ich denke es liegt daran das du da ja mit 2 dim arrays arbeitest, und da wird eben nur die Referenz kopiert und nicht das array.

Hawkeye219's lösung sagt expliziet das das array kopiert werden mus und nicht die Referenz.