Hallo,
ich versuche einen Tree aus einer Datenbank zu laden, aber irgendwie finde ich nicht die richtige Lösung. Die Tabelle sieht so aus:
Zitat:
id | parent_id | name
Der Quelltext bisher (nach einigen fehlerhaften Versuchen:
Delphi-Quellcode:
with searchQuery
do
begin
SQL.Clear;
SQL.Text := '
SELECT * FROM icstree ORDER BY parent ASC;';
Open;
while not eof
do
begin
if FieldByName('
parent').AsInteger = 0
then //oberste Ebene anhängen
begin
tmpNode := main.icstree.Items.AddObject(
nil,FieldByName('
name').AsString,Pointer(FieldByName('
id').AsInteger));
end
else
begin
end;
...
Hat jemand einen Hinweis bzw. eine Best Practice, wie ich da weitermache?
Viele Grüße ...