VPF::Treeview - Форум программистов

DIMONSOFT

Дата 12.3.2005, 21:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 19.12.2004
Где: Киев

Репутация: 1
Всего: -3

Код


function SrNodeTree(pTreeNode: TTreeNode; var sRuta: string): string;  
begin  
  sRuta := pTreeNode.Text + '/' + sRuta;
  if pTreeNode.Level = 0 then Result := sRuta  
  else   
    Result := SrNodeTree(pTreeNode.Parent, sRuta);  
end;

Пример:
- Дельфи
- WinAPI
работа с....
После выполнения кода получаю следующее:
Дельфи/WinAPI/работа с..../
Вопрос: Надо чтобі работало так:
Дельфи/WinAPI/работа с....

--------------------

NiJazz

Дата 12.3.2005, 21:41 (ссылка)

(нет голосов)

Загрузка ...

Jazz coder

Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 6
Всего: 23

DIMONSOFT

Код


Delete(sRute, length(sRuta), 1);

Точный синтаксис не помню, но суть та же.

Alex

Дата 12.3.2005, 23:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Код


function GetTVPath(Node: TTreeNode; Separator: Char): String;
// Возвращает полный путь к элементу в TreeView
// Separator - разделитель
begin
  Result:= '';
  if Node = nil then exit;
  while Node <> nil do begin
    Result:= Node.Text + Separator + Result;
    Node:= Node.Parent;
  end;
  if Length(Result) <> 0 then Delete(Result, Length(Result), 1);
end;
// -----------------------------------------------------------------
procedure GetListTVNode(SelNode: TTreeNode; List: tStrings; Separator: Char);
// Возвращает список подчиненных элементов к SelNode
// Separator - разделитель
  procedure ScanNodes(Node: TTreeNode; path: String);
  begin
    Node:= Node.GetFirstChild;
    while Node <> nil do begin
      if Node.HasChildren then
        ScanNodes(Node, path + Separator + Node.Text)
      else
        List.Add(       path + Separator + Node.Text);
      Node:= Node.getNextSibling;
    end;
  end;

begin
  List.BeginUpdate;
  try
    List.Clear;
    if SelNode = nil then Exit;
    if SelNode.HasChildren then
      ScanNodes(SelNode, SelNode.Text)
    else
      List.Add(SelNode.Text);
  finally
    List.EndUpdate;
  end;
end;

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Alex

Дата 12.3.2005, 23:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Перенесено из раздела Дельфи

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »