Прошу:

Код

function GetListTVNode2(TV: TTreeView): String; var  i, n: Integer; begin  Result:= '';  if TV.Selected = nil then Exit;  if TV.Selected.getNextSibling = nil then    n:= TV.Items.Count-1  else    n:= TV.Selected.getNextSibling.AbsoluteIndex-1;  for i:= n downto TV.Selected.AbsoluteIndex do    if Result <> '' then      Result:= Result + ',' + TV.Items[i].Text    else      Result:= Result + TV.Items[i].Text; end;

Ну, так то или опять не то?

Щас-то то, только не пойму, почему люди пошли такие ленивые - был предложен alex-co на 99% нужный способ (только результат в обратном порядке надо), но Paranoik не догадался (не хотел догадаться?) перевернуть результат, или вместо List.Add(...) сделать List.Insert(0, ...).
Всё теперь нужно преподносить на блюдечке... Одних людей форумы поднимают в профессиональном смысле (те которые пытаются совместно решать проблему, а не ждать готового ответа), другая же часть людей, наоборот, становится ленивой и забывает о таких телодвижениях, как шевеление мозгами ("зачем думать, когда за меня интернет всё решит ?").
Так не за горами языки, когда программа пишется в таком духе:

Код

program MySuperGame;  Супер-заставка, где всё классно мигает с 3D-графикой, Dolby-звуком;  Главное меню;  Сама игра: самолетик летит снизу вверх и убивает тьму врагов...  Таблица рекордов;

А в роли компилятора выступает интернет... (Конечно, я привел пример преувеличенно, но суть такова)...

Сорри всем за оффтоп, просто что-то сегодня я на левые темы базарить горазд...