Hallo!
Also, ich habe zwei Class-Objekte geschrieben: TDaten und THaus.
TDaten wird erfolgreich erzeugt.
TDaten enthält ein array of THaus;
THaus wird so erzeugt:
Delphi-Quellcode:
i:=StrToInt(a);
i2:=StrToInt(a2);
b1:=length(Daten.Haus);
setlength(Daten.Haus,b1+2);
Daten.Haus[b1+1]:=THaus.Create;
Daten.Haus[b1+1].ypos:=StrToInt(a);
Daten.Haus[b1+1].xpos:=StrToInt(a2);
Daten.Haus[b1+1].Typ:=Form2.ComboBox1.Text;
Daten.Haus[b1+1].Besitzer:=Form2.RadioGroup3.ItemIndex+1;
Nun soll ein bei einem Haus die Eigenschaft Besitzer auf 0 geändert werden:
Delphi-Quellcode:
procedure TForm1.Gebauedeloeschen(Name:String);
var Name2:String;
Zahl1,i:Integer;
begin
try
Name2:=Name;
delete(Name2,5,length(name2));
if Name2='Haus' then begin
Daten.Objekt:=GLDummyCube1.FindChild(Name,true) as TGLFreeForm;
Daten.Objekt.Destroy;
Name2:=Name;
delete(Name2,1,4);
Zahl1:=StrToInt(Name2);
showmessage(IntToStr(Daten.haus[i].Besitzer)); //Hier wird markiert!!
Daten.Haus[i-1].Besitzer:=0;
end;
except
end;
end;
Führe ich jetzt die Prozedur Gebaeudeloeschen aus, so bekomme ich eine Zugriffsverletzung und die Zeile oben wird markiert.
Ich habe es mit einem Haus ausprobiert.
Daten.Objekt.Destray funktioniert tadellos.
Wenn ich mir anzeigen lasse, wie groß Daten.Haus (also mit schowmessage(IntToStr(length(Daten.Haus))) ) bekomme ich als Ergebnis 2.
Kann mir jemand helfen?
PS: Ich benutze GLScene