Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Сервис для компонентов



Вернуться к списку функций
 Получение пути заголовков к узлу в TreeView

 Прислал: lipskiy (Санкт-Петербург) ( 02 мая 2002 г. )
©  Собственное написание (lipskiy)
 Описание:
Функция выдает путь к указанному узлу (к ноде) в TreeView
в виде строки заголовков узлов, разделенных символом Separator.

 Зависимости:
ComCtrls

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Получение пути заголовков к узлу в TreeView

Функция выдает путь к указанному узлу (к ноде) в TreeView
в виде строки заголовков узлов, разделенных символом Separator.

Зависимости: ComCtrls
Автор:       lipskiy, lipskiy@mail.ru, ICQ:51219290, Санкт-Петербург
Copyright:   Собственное написание (lipskiy)
Дата:        02 мая 2002 г.
***************************************************************** }

function GetPathToNode(Node:TTreeNode; Separator:Char):string;
begin
  Result:= '';
  if Node = nil then exit;
  while Node <> nil do
  begin
    Result:= Node.Text + Separator + Result;
    Node:= Node.Parent;
  end;
  Delete(Result,length(Result),1);
end;


Вернуться к списку функций

Наверх ▲