Problem beim Einfügen in Treeview

[fkerber]

Hallo!

Als Grundlage nutze ich eine Datenbank mit folgendem Aufbau:

Zitat:

ID | Name | Parent
---------------------------
1 | Objekt 1 | 0
2 | Objekt 2 | 0
3 | Objekt 3 | 1
4 | Objekt 4 | 2
5 | Objekt 5 | 4

Meine Idee war jetzt, ein Treeview so aufzubauen:

Delphi-Quellcode:

Objekt 1
   Objekt 3
Objekt 2
   Objekt 4
      Objekt 5

Das würde soweit auch alles ganz toll klappen, wenn sich die Einträge (bzw. die Reihenfolge) der Items nicht ändern würde.
Als Beispiel:

• ich füge Objekt 1 ein (ist somit Item[0])
• ich füge Objekt 2 ein (ist dann Item[1])
• dann füge ich Objekt 3 ein und dann hab ich den Salat:
  Jetzt ist nämlich Objekt 3 Item[1] und Objekt 2 ist jetzt Item[2]

Und somit passt mein System, den ParentWert aus der DB als ParentNode zu holen.

Entweder ist es noch zu früh oder es hat andere Gründe , aber auf jeden Fall bin ich ratlos, wie ich diesen Treeview so aufgebaut bekomme, wie ich ihn gerne hätte.


Danke für eure Hilfe.
Ciao Frederic

[SirThornberry]

die ID sollte sich doch aber nicht ändern wenn mittendrin ein DS eingefügt wird. Und wenn du beim als Parent die ID des Parents angibst dürfte es doch keine Probleme geben.

[alzaimar]

Ganz einfach: Deine DB ist völlig korrekt. Die Spalte ID ist ein AutoInc-Wert (z.B.) Hauptsache eindeutig und wird sich nie ändern (Wie Sir Thornberry erwähnte). Die Spalte ID hat Nichts mit dem Index in der Items-Eigenschaft zu tun.

Den ID-Wert speicherst Du (z.B.) in der Tag-Property eines TTreeNode. Oder du erzeugst eine Klasse, die die DB-Informationen enhält und speicherst den Instanzenzeiger in der Data-Eigenschaft der TreeNode.

Du hast zwei Möglichkeiten, deine Treeview aufzubauen:
1. Vollständig, also alle Records werden sofort in die TreeView geladen. Das lohnt sich nur, wenn es nicht all zu Viele sind.
2. Du lädst erst alle Knoten der untersten Ebene und fügst einen 'Dummy-Child'-Knoten ein, damit das '+' links vom Knoten erscheint. Beim Klick auf das '+' (OnExpand) eines Knotens K klickst, prüfst Du, ob der Kind-Knoten eines dieser 'Dummy-Childs' ist. Wenn ja, löscht Du es, lädst alle Records mit der Eigenschaft (ParentID = K.Tag) und fügst diese Knoten als Kinder des Knotens K ein. Jeder Kindknoten bekommt wieder ein Dummy-Child. Damit lassen sich beliebig(!) große Bäume relativ schnell laden.

Wenn Du dagegen alle Knoten auf einmal laden willst, gibt es wieder diverse Möglichkeiten. Die einfachste ist die:

Delphi-Quellcode:

Procedure InsertNode (aMyData : TDataRecord);
Var
  i : Integer;

Begin
  If aMyData.ParentID = -1 Then  // Objekt der obersten Ebene
    MyTreeView.AddObject (Nil,aMyData.Description, aMyData)
  Else 
    For i:=0 To MyTreeView.Items.Count - 1 do
      If MyTreeView.Items[i].Tag = aMyData.ParentID Then
        MyTreeView.AddChildObject(MyTreeView.Items[i], aMyData.Description, aMyData);
End;

Kleine Anmerkung für Performancefetischisten:
-Der Zugriff auf die TTreeNodes per Items[i] ist *nicht* langsam, obwohl das so in der OH steht.
-Der gesamte Prozess ist nicht sonderlich schnell.

Es gibt diverse andere Komponenten, die das von Hause aus können, also einfach mit einem TDataSource verbinden, die Eigenschaften 'ParentField' und 'KeyField' setzen und den Rest erledigt die Komponente.

Hat die JVCL nicht so etwas im Gepäck?

[fkerber]

Hi!

@SirThornberry:
Die ID (in der Datenbank) ändert sich auch nicht - wohl aber der Index im Array Items, der mir die Stelle angibt, wo da Item gerade rumsteht...

@alzaimar:
Danke für deine Ausführungen, hätte es auch gerne so gemacht, aber die TreeNodes haben keine Eigenschaft Tag und soweit ich das sehen kann auch nichts anderes verwertbares (außer dem text, den ich ja aber brauche...)


Ciao Frederic

[fkerber]

Hi!

So, ich habe mich dazu entschlossen, dann eben kurzerhand die Tag-Property nachzurüsten und dann werde ich es so umsetzen.

Danke für eure Tipps.


Ciao Frederic

[SirThornberry]

anstelle des Nachrüstens hättest du auch die Data-Eigenschaft nutzen können. Dort einfach ein Object rein hängen was dein "Tag"-Property hat oder wie du es dann nennen willst und zusätzlich Speicher für deine eigentlichen Daten

[alzaimar]

TreeNodes haben kein Tag? Ich werd alt...

[fkerber]

HI!

Danke für den Tipp, SirT - schau ich mir mal noch an.

@alzaimar:
War auch sehr erstaunt, war auch mein erster Gedanke gewesen...


Ciao Frederic

[marabu]

Hallo alzaimar,

Zitat von alzaimar:

TreeNodes haben kein Tag? :oops: Ich werd alt...

anders herum wird ein Schuh draus - das vom TreeNode gekapselte relativ moderne ListView-Item hat von Hause aus bereits ein Tag (Data). Für die alten Controls haben die VCL-Entwickler das Tag im Wrapper vorgehalten.

Grüße vom marabu