Hallo,
Ich habe vor ein größere Hierarchie in eine DB zu packen und die Baumstruktur in eine Tabelle zu packen hab ich eine einfach Funktion gebaut.
Das funktioniert auch prima. Das ganze wieder zu rück zu spielen ist schwerer.
Hier ist der Aufbau der Tabelle:
id - index des Knoten (primary_key)
title - Knotenname
child_id - Index ersten Kinderknoten
subling_id Indes des nächstbenachbarten Knoten
Durch die eindeutige Index-Vergabe ist es einfach Inhalte den Knoten zuzuordnen! Aus der Tabelle eine Baum in eine TTreeView-Feld wieder auf zubauen ist auchnicht schwer und funktioniert prima!
Jetzt die Frage:
Ich hab versuch die TreeToTable und TableToTree in eine externe Unit zu packen und bin bei TableToTree gescheitert!
Quelltext
1:
| function tabletotree(table: TKatTabelle ) : ttreenodes; |
Ich hab mir gedacht : Ich übergebe eine Tabelle und bekomme "ttreenodes" (eine Knotenliste) Ich über all reinpacken kann! Aber Pustekuchen....
Ich bekomme nur Error_Expt's wenn ich versuche:
Quelltext
1: 2: 3: 4: 5: 6: 7:
| .... var nodelist : ttreenodes;
begin
nodelist.add(nil, 'Startelement' ); ... |
wieso kann ich keine treenode-list aufbauen und dann weiterreichen? an zB ein eine TTreeview-Element? Wo liegt mein Denkfehler?
Clemens