Fehler bei neuem Eintrag einer TreeView

[-NIP-]

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?

[tigerman33]

Schuss ins Blaue: Ist Selected vielleicht nil?

[Khabarakh]

Zitat:

Delphi-Quellcode:

self.Groups[Length(self.Groups)].Create;

:stupid: Du willst eine Instanz an einer Speicherstelle, die zu einer hohen Wahrscheinlichkeit nicht dir gehört, in einem Arrayitem, das nicht existiert, speichern.

Delphi-Quellcode:

Groups[High(Groups)] := TGroup.Create;

[-NIP-]

Wenn ich den Code aber in diesen umwandle, kommt der selbe Fehler:

Delphi-Quellcode:

procedure TS3DObject.AddGroup(Name:String; Visible: Boolean);
begin
  SetLength(self.Groups,High(self.Groups));
  self.Groups[High(self.Groups)]:= TS3DGroup.Create;
  self.Groups[High(self.Groups)].Visible:= Visible;
  self.Groups[High(self.Groups)].Name:= Name;
end;

Selected ist nicht nil.

[Flocke]

Das Length+1 beim SetLength war ja auch richtig, du musst nur bei den Indizes High benutzen.

Delphi-Quellcode:

procedure TS3DObject.AddGroup(Name:String; Visible: Boolean);
begin
  SetLength(self.Groups,Length(self.Groups)+1);
  self.Groups[High(self.Groups)]:= TS3DGroup.Create;
  self.Groups[High(self.Groups)].Visible:= Visible;
  self.Groups[High(self.Groups)].Name:= Name;
end;

[-NIP-]

Danke, das klappt jetzt.