Thema: Delphi Treeview: Pfad öffnen

Einzelnen Beitrag anzeigen

valon

Registriert seit: 27. Sep 2004
86 Beiträge
 
#1

Treeview: Pfad öffnen

  Alt 13. Okt 2004, 10:34
Hallo , brauche eure Hilfe!

Ich möchte einen Treeview bis zu dem Pfad zb. test\ordner\abc öffnen.Den Pfad hab ich zerstückelt
und jedes Verzeichnis in eine StringListe eingefügt.

Ich zeige euch mal den Code der aber nicht richtig funz.

Wenn ich einen TreeNode erzeuge, will er bei TreeNode.create einen Owner haben , ich weiss nicht was ich da angeben soll.


Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer; //zähler
TreeNode:TTreeNode;
begin
  TreeNode:=TTreeNode.create(????????);

  TreeNode:=Treeview1.TopItem;
  i:=0;

  while((Treeview1.TreeNode <> nil) and (i < StringList.Count)) do //in stringList sind die Verzeichnisse drin
  begin
    if (Treeview1.TreeNode.Text=StringList[i]) then
      begin
        Treeview1.TreeNode.Expand(False);
        i:=i+1;
        Treeview1.TreeNode:=Treeview1.TreeNode.GetFirstchild;
      end
    else Treeview1.TreeNode:=Treeview1.TreeNode.GetNextSibling;

  end;
könnte das so funktionieren?
danke

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]
  Mit Zitat antworten Zitat