TTreeNode aussuchen u. weitere Knoten anhängen

[Chemiker]

Hallo Mazel,

Vielen Dank für deine Antwort.
Du hast mich auf den richtigen Weg gebracht, ich habe mich damit schon min. 20h beschäftigt. Ich wollte schon mein Notebook aus dem Fenster werfen, aber manchmal sieht man den Wald vor lauter Bäumen nicht.

Delphi-Quellcode:

{
  Alle Datensätze durchlaufen und die MaBez an die entprechenden MaGruppe1 an-
  hängen.
  }
  for I := 1 to Anzahl do
  begin
    MSBez.MSLesen:= i;      // Datensatz lesen

    for z := 0 to m_Ebene1.Count - 1 do // Die Schleife wird solange durchlaufen bis die Anzahl der Knoten in m_Ebene1 erreicht ist
     begin
    if (m_Ebene1.Item[z].Text = MSBez.MaGruppe1) then      // Prüfen zu welchen Knoten der m_Ebene1 der Unterknoten gehört.
      begin
        // Items aussuchen an welcher Stelle angehängt werden soll.
             if (NOT(IsDuplicateEintrag(m_Ebene3,MSBez.MaBez,TRUE))) then  // Duplikat nicht eintragen
        begin
          m_Ebene3:= TreeView1.Items.AddChild(m_Ebene1.Item[z],MSBez.MaBez);//Unter den Ensprechenden Knoten der m_Ebene1 eintragen
       end;

Nun funktioniert alles tadellos, dank deiner Hilfe.

Bis bald Chemiker