Открытие файлов через TreeView

[Xardas]

Столкнулся с такой проблемой:
в TreeView загружаю необходимые мне папки и файлы, структура выглядит примерно так:

-файл1.mht
-файл2.mht

-папка1
---------файл3.txt
---------файл4.mht

-файл5.txt

-папка2
---------файл6.mht
---------файл7.mht
и т.д.

Файлы необходимо открывать сторонними приложениями. Как мне определить к какому узлу относятся, например, дочерние узлы файл3 и файл4?

Как видимо, при выделении "папка1" или "папка2" открывать их не надо, то есть я использую

str1:=treeview1.Selected.Text;
if treeview1.Selected.Count=0 then
ShellExecute(Handle,nil,PChar(FPath+'Base\Questions\'+str1), nil, nil, SW_SHOW);

Но при использовании ShellExecute указывается путь, то есть, если был выделен, например, "файл3", то путь должен выглядеть так: "FPath+'Base\Questions\'+'папка1\'+ str1"
И у меня никак не получается это осуществить . Подскажите, пожалуйста, что делать? А если файлов и папок много? Может я чего-то не оптимально делаю и можно сделать проще? Поделитесь, пожалуйста, опытом, посоветуйте как быть!!!

[SNUPY]

Подсказываю..
Хочеш узнать родителся тогда treeview1.Selected.Parent
хочеш узнать его значение тогда treeview1.Selected.Parent.text
Чочеш узнать родителя родителя (дедушку или бабушку))))) тогда treeview1.Selected.Parent.Parent
и т.д......

[Xardas]

Подсказываю..
Хочеш узнать родителся тогда treeview1.Selected.Parent
хочеш узнать его значение тогда treeview1.Selected.Parent.text
Чочеш узнать родителя родителя (дедушку или бабушку))))) тогда treeview1.Selected.Parent.Parent
и т.д......

Я вот сейчас до этого дошел. А если вложенность будет большой? Мне ведь не просто надо узнать, а еще в путь дописывать...

[SNUPY]

Ну тогда делаем так

Var
  SDirAdr:string;
  Node:TTreeNode;
....
  SDirAdr:='';
  Node:=TreeView1.Selected;
  Repeat
     Node:=Node.Parent;
     SDirAdr:=Node.Text+'\'+SDirAdr;
  Until Node=nil;
....

[Xardas]

В процессе выполнения Node.Text имеет Inaccessible Value - недопустимое значение, вылетает ошибочка.

[mihali4]

Сообщение от Xardas

В процессе выполнения Node.Text имеет значение Inaccessible Value - недопустимое значение, вылетает ошибочка.

Ну вы уж хоть одно собственное шевеление тем, что у вас там в черепной коробке, уж сделайте, пожалуйста!
Разве так трудно догадаться, что проверка на NIL должна происходить раньше?
То есть не REPEAT...UNTIL, а WHILE...

[SNUPY]

А я то думал что каждый файл будет хотя бы в одной папке.

[Xardas]

Ну вы уж хоть одно собственное шевеление тем, что у вас там в черепной коробке, уж сделайте, пожалуйста!

Да... Может это у меня под конец дня, то, что "в черепной коробке", шевелится с трудом...

Делаю таким образом:
SDirAdr:='';
Node:=TreeView1.Selected;
while node<>nil do
begin
Node:=Node.Parent;
SDirAdr:=Node.Text+'\'+SDirAdr;
end;

На предпоследней строке ошибка, исключение EAccessViolation. Причем, когда делаю точку останова на этой строке, Node.text содержит 'Новая папка', т.е. правильное значение... Ведь как только все предки переберутся из цикла должен выходить... Тупик у меня в голове

[mihali4]

Вот эта "дикая" строка ?

Node:=Node.Parent;

Ну, все правильно...
В ней вы говорите : присвоить мне, что я - мой отец... Бред...
Чуть-чуть изменим:

mynod:=TreeView1.Selected;
while mynod<>nil do
begin
Node:=mynod.Parent;
...
//и в конце
mynod:=Node;

[SNUPY]

И он на этом же когда имеет значение "Новая папка" дает ошибку?