Einzelnen Beitrag anzeigen

torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#5

Re: TTreeview - Nur Oberknoten finden und übersetzen...

  Alt 1. Dez 2007, 15:01
Danke für den Code, aber wie Du selbst sehen wirst, macht es mit der Schleife nicht so wirklich Sinn. Es sind ja nur 6 Knoten.

Hier mal ein Ausschnitt aus meinem Code. Die Variablen sind voher befüllt worden.

Delphi-Quellcode:
  if obj_list <> nil then
    begin
      myNode := obj_list.TreeView1.Items.GetFirstNode;
      myNode.Text := str_tv_cams;

      myNode := myNode.getNextSibling;
      myNode.Text := str_tv_camd;

      myNode := myNode.getNextSibling;
      myNode.Text := str_tv_logo;

      myNode := myNode.getNextSibling;
      myNode.Text := str_tv_back;

      myNode := myNode.getNextSibling;
      myNode.Text := str_tv_fret;

      myNode := myNode.getNextSibling;
      myNode.Text := str_tv_objc;

      myNode := myNode.getNextSibling;
      myNode.Text := str_tv_legn;
    end;
Danke
Tom
  Mit Zitat antworten Zitat