Frage zur TreeView

[Akut-Programming]

Nice!! - Ich hab mich da jetze mal rangesetzt, da ich gestern noch an nem anderen Projekt weiter arbeiten musste.. es funzt endlich! Dank dir ibp.

Delphi-Quellcode:

procedure TfrmMain.GetObjects();
var
   ListItem: TTreeNode;
   i, i2: integer;
begin
     lvObjects.Items.Clear;

     //Alle Gruppenbezeichnungen laden
     dsGetGroupID.Active:=false;
     dsGetGroupID.CommandText:='select * from groups_tbl';
     dsGetGroupID.Active:=true;
     //Ersten Datensatz auswählen
     dsGetGroupID.First;
     //Baumknoten erstellen - Solange wiederholen, wie Gruppen vorhanden sind
     for i:=0 to dsGetGroupID.RecordCount -1
     do begin
        with lvObjects.Items
        do begin
           ListItem := Add(nil, dsGetGroupID.Fields.Fields[1].AsString);
        end;
        //Alle Objekte zur Gruppe laden
        dsGetObjects.Active:=false;
        dsGetObjects.CommandText:='select * from Objects_tbl where groupid = '''+dsGetGroupID.Fields.Fields[0].AsString+'''';
        dsGetObjects.Active:=true;
        //Erstes Objekt wählen
        dsGetObjects.First;
        //Child erstellen - Solange wie Daten vorhanden sind
        for i2:=0 to dsGetObjects.RecordCount -1
        do begin
           with lvObjects.Items
           do begin
              AddChild(ListItem, dsGetObjects.Fields.Fields[2].AsString);
           end;
           //Nächstes Objekt wählen
           dsGetObjects.next;
        end;
        //Nächste Gruppe wählen
        dsGetGroupID.next;
     end;
end;

Gruß,