Как "распутать" обратный путь в TTreeView у TTreeNode

← →
mmms (2005-07-11 00:06) [0]

у субменю не важно какого порядка. Т.е. есть пример
+продукты +фрукты +цитрусовые -мандарины -апельсины -лимоны +овощи

Если выделить мандарины, нужно получить строку вида
продукты-фрукты-цитрусовые-мандарины
Заранее благодарен.

← →
Юрий Зотов © (2005-07-11 00:14) [1]

function GetFullNodeName(Node: TTreeNode): string;
begin
Result := Node.Text;
while Node.Parent <> nil do
begin
Result := Node.Parent.Text + "-" + Result;
Node := Node.Parent
end
end;

← →
Anatoly Podgoretsky © (2005-07-11 00:14) [2]

Parent рекурсивно

← →
mmms (2005-07-11 08:33) [3]

Как "распутать" обратный путь в TTreeView у TTreeNode Найти похожие ветки