Object aus TreeView auslesen

[Chemiker]

Hallo marabu,

Die in 'Daten' abgespeicherten Daten unterscheiden sich.
So werden die Objecte im TreeView gespeichert.

Delphi-Quellcode:

for I := 1 to Anzahl do
  begin
    MSBez.MSLesen:= i;
    For z:=0 to TreeView1.Items.Count -1 do
    begin
      if (TreeView1.Items[z].Text = MSBez.MaBez) then
      begin
        if (NOT (IsDuplicateEintrag(m_Ebene4, MSBez.MaNr+MSBez.MSNr,TRUE))) then
        begin
          Daten:= TMSV1.Create;
          Daten:= MSBez;
          m_Ebene4:= TreeView1.Items.AddChildObject(TreeView1.Items[z],
                                         MSBez.MaNr+MSBez.MSNr, Daten);
         {m_Ebene4.StateIndex:=3; }  // MS nicht aktiv
          if MSBez.MSAktiv then
          begin
            m_Ebene4.StateIndex:= 4;
          end
           else
           begin
             m_Ebene4.StateIndex:= 3;
           end;
          If MSBez.DarstellungsArt= 2 then
          begin
            m_Ebene4.ImageIndex := 2;
          end
          else
          begin
            m_Ebene4.ImageIndex:= 1;
          end;
        end;
      end;
    end;

Der Zeiger beim Anklicken der Knoten von Data ist immer gleich.


Bis bals Chemiker