Hi!
In meinem Programm gibt es immer eine
AV, wenn ich folgenden Code auslöse:
Delphi-Quellcode:
GroupCount:= GroupCount+1;
S3DObjekt.AddGroup('Gruppe '+IntToStr(GroupCount),true);
//In Zeile unter dem Kommentar kommt Fehler
with ObjectsTreeTV.Items.AddChildFirst(ObjectsTreeTV.Selected,'Gruppe '+IntToStr(GroupCount)) do
begin
ImageIndex:= 1;
MakeVisible;
SelectedIndex:= 1;
Data:= S3DObjekt.Groups[Length(S3DObjekt.Groups)];
end;
TreeViewKomponente = ObjectsTreeTV
Wenn ich die "AddGroup"-Prozedur nicht ausführe kommt der Fehler nicht.
Die AddGroup-Prozedur sieht so aus:
Delphi-Quellcode:
//In dieser Prozedur kommt kein Fehler beim Ausführen
procedure TS3DObject.AddGroup(Name:String; Visible: Boolean);
begin
SetLength(self.Groups,Length(self.Groups)+1);
self.Groups[Length(self.Groups)].Create;
self.Groups[Length(self.Groups)].Visible:= Visible;
self.Groups[Length(self.Groups)].Name:= Name;
end;
Groups ist ein dynamisches Array.
Habt ihr vllt. eine Idee?