TObjekt List Problem

[Muetze1]

Und noch ein Tipp:

Dein Original Code:

Delphi-Quellcode:

b1:=Daten.Haus.Add(Haus1);
THaus(Daten.Haus.Items[b1]).xpos:=i2;
THaus(Daten.Haus.Items[b1]).ypos:=i;
THaus(Daten.Haus.Items[b1]).Typ:=Typ;
THaus(Daten.Haus.Items[b1]).Besitzer:=Besitzer+1;

Aber da Haus1 und auch Daten.Haus.Items[b1] genau die gleich Instanz beinhalten, kannst du natürlich das ganze einfacher gestalten, wenn du es so machst:

Delphi-Quellcode:

Daten.Haus.Add(Haus1);
Haus1.xpos:=i2;
Haus1.ypos:=i;
Haus1.Typ:=Typ;
Haus1.Besitzer:=Besitzer+1;