Treeview 如何取得每一葉子(末端結點)的路徑呢

Question

例如：
a-b-c
 -d-e
   -f  想要列舉c,e,f樹葉的路徑
a-b-c
a-d-e
a-d-f
==========
謝謝

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
  function GetFullPath(ANode: TTreeNode): string;
  begin
    Result := '';
    if ANode = nil then Exit;    Result := ANode.Text;
    while ANode.Parent <> nil do
    begin
      Result := ANode.Parent.Text + '-' + Result;
      ANode := ANode.Parent;
    end;
  end;var
  i: Integer;
begin
  for i := 0 to TreeView1.Items.Count - 1 do
    if not TreeView1.Items[i].HasChildren then
      Memo1.Lines.Append(GetFullPath(TreeView1.Items[i]));
end;