Object aus TreeView auslesen

[Chemiker]

Hallo,

jetzt funktioniert es, ich habe beim ersten Versuch übersehen das nur ein Zeiger übergeben wird und so wurden nur vom letzten Object die Daten angezeigt.

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 von MSBez in Daten übertragen.
          with MSBez do
          begin
            Daten.MSDateiName:= MSDateiName;
            Daten.MaInhalt:= MaInhalt;
            Daten.MaInhaltDichte:= MaInhaltDichte;
            Daten.MSMECode:= MSMECode;
            Daten.MSBeschr:= MSBeschr;
            Daten.MaBez:= MaBez;
            Daten.MSMessBereichMin:= MSMessBereichMin;
            Daten.MSMessBereichMax:= MSMessBereichMax;
            Daten.MSMessMaxAenderung:= MSMessMaxAenderung;
            Daten.MSMessMinAenderung:= MSMessMinAenderung;
            Daten.MaGruppe1:= MaGruppe1;
            Daten.MaGruppe2:= MaGruppe2;
            Daten.DarstellungsArt:= DarstellungsArt;
            Daten.MaNr:= MaNr;
            Daten.MSNr:= MSNr;
          {  Daten.MSId:= MSId;  }
            Daten.MSAktiv:= MSAktiv;
            Daten.MSGeloescht:= MSGeloescht;
          end;
          m_Ebene4:= TreeView1.Items.AddChildObject(TreeView1.Items[z],
                                         MSBez.MaNr+MSBez.MSNr, Daten);

          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;

Um die Daten anzuzeigen gehe ich nun so vor:

Delphi-Quellcode:

procedure TForm1.TreeView1Click(Sender: TObject);
var MSBez3: TMSV1;
    strTest: string;
    Index: integer;
begin
  MSBez3:= TMSV1.Create();
  MSBez3:= TreeView1.Selected.Data;
  if MSBez3 <> NIL then
  begin
    MSBez:= MSBez3;
    Button2Click (self);
   end;
end;

Jetzt habe ich noch eine Frage bezüglich der Freigabe des Speichers der Daten von Data von TreeView, geschieht dies automatisch?

Und wie kann man feststellen, dass man Speicherlöscher produziert oder nicht.