denkfehler; array-> dynarray

[vsilverlord]

Hallo,
ich hab ein etwas größeres Projekt, weswegen ich nicht den ganzen quelltext reinschreiben kann.
Ich werde mal versuchen zu beschreiben. Vorher hatte ich einen statischen array mit seiner anzahl als record:

Delphi-Quellcode:

tviechergruppe=record
viecher:array[0..10000] of tviech;
viecheranzahl:integer;
end;

tviech ist einfach ein weiterer record mit den eigenschaften des viechs.
wenn ich also die anzahl der viecher erhöhen wollte, hab ich nur die viecheranzahl erhöht. Ein neues viech füge ich dann so hinzu:

Delphi-Quellcode:

var
blaueviecher:tviechergruppe;
...
inc(blaueviecher.viecheranzahl);
blaueviecher.viecher[blaueviecher.viecheranzahl]:=blaueviecher.viecher[blaueviecher.viecheranzahl-1] // hier sieht es so aus wie das letzte
mutiere(blaueviecher.viecher[blaueviecher.viecheranzahl]) // hier wird es ein inviduum, da es mutiert

(alles hat perfekt funktioniert)
Nun wollte ich das ganze mit einem dynamischen array machen, um speicher zu sparen:

Delphi-Quellcode:

tviechergruppe=record
viecher:array of tviecher;
viecheranzahl: integer

zugreifen wollte ich dann so:

Delphi-Quellcode:

var
blaueviecher:tviechergruppe;
...
inc(blaueviecher.viecheranzahl);
setlength(blaueviecher.viecher,blaueviecher.viecheranzahl+1); //der array ist 1 größer wie die benötigte anzahl
blaueviecher.viecher[blaueviecher.viecheranzahl]:=blaueviecher.viecher[blaueviecher.viecheranzahl-1] // hier sieht es so aus wie das letzte
mutiere(blaueviecher.viecher[blaueviecher.viecheranzahl]) // hier wird es ein inviduum, da es mutiert

jetzt taucht das phänomen auf, dass ALLE viecher so aussehen wie das letzte. Ich kann mir nicht im geringsten vorstellen warum das so sein sollte. Ich such jetzt schon stunden den fehler. für mich sieht das so aus, als ob das ein delphi-fehler oder irgendein abstruser systemfehler ist.