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