Hi!
Edit: Anscheinend liegt es daran, dass Dyn. arrays nur Pointer sind....
aber wie kopieren???, ok, wohl mit copy, aber wie???
trotz save:= copy(kante,i+1,length(save)); (length von save gesetzt!) hängen sie noch voneinander ab!!!)
Vorab folgende Info:
Ich hatte vorher ein Record und wollte es zu einer Klasse umbauen, damit ich im noch ein paar Funktionen einbauen kann. Mit dem Record geht alles problemlos, aber seit es eine Klasse ist, geht alles drunter und drüber.
Also folgender Code:
Delphi-Quellcode:
type TKante = class(TObject)
x1,x2: TPoint;
end;
var
kante: array of TKante;
[...]
for i:=0 to length(kante)-1 do
kante[i]:=TKante.Create;
dann in der Funktion, in der der Fehler auftritt (Zeilennummern zur Erläuterung in Klammern):
Delphi-Quellcode:
var save: array of TKante;
[...]
setlength(save,1);
save[0]:=Tkante.create;
//Wertzuweisung von save[0];
[...]
(1) l:=1;
(2) for k:=length(save)-1 downto 0 do
begin
(3) kante[i+l].x1:=save[k].x2;
(4) kante[i+l].x2:=save[k].x1;
(5) inc(l);
end;
So, schauen wir uns den Inhalt von Save an:
nach Ausführung von...
(1) (((99, 221), (260, 231)))
(2) (((99, 221), (260, 231)))
(3) (((260, 231), (260, 231))) <===== !!!!!
(4) (((260, 231), (260, 231)))
[...] // Wert ändert sich nicht mehr
Was bitte geht hier vor??
Wie gesagt, bei Record keine Probleme!
Ciao Frederic