[mmonster]

Спасите Голова уже не варит как это сделать...

Код:

1 2 3 4 5 6 7 8

Ветка1 -Ветка2       -Ветка2.1              -Ветка2.2                     -Ветка2.3                              Ветка2.4(здесь указатель) Ветка3 Ветка4

По клику на Button нужно получить текст прородителя всей ветви. тоесть "Ветка2"
Пробовал через Selected.Parrent но чота до ума довести неудалось

[lmikle]

Ну дык и иди вверх пока Parent не станет nil

Код:

1 2 3 4 5 6

function GetRoot(Node : TTreeNode) : String; begin   While Node.Parent <> Nil Do     Node := Node.Parent;   Result := Note.Text; end;

[Страдалецъ]

Вообще, если буквально делать то что вы просите, то так:

Код:

1	Copy(TreeView1.Selected.Text,1,Pos('.',TreeView1.Selected.Text)-1)