Erstellen einer Navigationsstruktur

[Störtebeker]

Hi,

für meinen Editor wollte ich dem Benutzer einen Seitenassistenten mit auf den Weg geben, über den dieser auch auf einfache Weise eine Navigation für seine Website erstellen kann. Das ist bis zu den Hauptpunkten kein Problem, doch nun hänge ich an den eventuellen Unterpunkten fest.

Das ganze läuft über eine Listbox: Add-Button -> EditFeld -> Wert des Editfelds wird in die Listbox eingtragen.

Beispiel:
Über Uns
Über Uns - Philosophie

Der Code für das sieht bisher folgendermaßen aus:

Delphi-Quellcode:

if(Assistent.Navigationsknoten.Items.Count>0) then begin

     Editor.SynEdit1.Lines.Add('<ul>');
       for i:=0 to Assistent.Navigationsknoten.Items.Count-1 do
        Editor.SynEdit1.Lines.Add('<li><a title="" href="">'+Assistent.Navigationsknoten.Items[i]+'</a></li>');
         end;
         i := i+1;
         Editor.SynEdit1.Lines.Add('</ul>');
       end;

"Navigationsknoten" ist die ListBox mit den eingetragenen Werten.


Wie gehe ich jetzt aber am besten das Erstellen der Liste mit den Unterpunkten an, sodass diese beim richtigen Hauptpunkt angefügt wird?

[ehX]

Generell:
Gib jedem Hauptpunkt eine ID und jedem Unterpunkt eine Parent-ID und eine Position innerhalb der Unterpunkte (ordering)
Beim Füllen der Listboxen gehst du dann Hauptpunkt für Hauptpunkt durch, schaust, ob er Unterpunkte hat und gibst sie nach der Position sortiert nach dem Hauptpunkt aus.

[Störtebeker]

Hi ehX,

danke erstmal für deinen Tipp, aber kannst du mir da eventuell auch einen Ansatz für den nötigen Code geben? Weil das ist dann doch Neuland für mich.