Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];

Вниз

TTreeView   Найти похожие ветки 

 
lutik ©   (2005-01-06 19:51) [0]

Как Динамически создать дерево из файла, если в файле записи типа :
"Мастер\Детали\Ключ"
"Мастер\Имя"
"Мастер\Детали\Отвертка"
........................


 
begin...end ©   (2005-01-06 20:02) [1]

> lutik ©   (06.01.05 19:51)

Ну не знаю, насколько это хорошо в смысле производительности, но предлагаю так:

1. Разбираем очередную строку, прочитанную из файла. Получаем несколько разделённых "названий" узлов, и для каждого узла известен его уровень.
2. Смотрим в TreeView: если нет такого узла с соответствующим уровнем, то добавляем его.


 
maxz ©   (2005-01-06 20:05) [2]

var
 t: TTreeNode;
begin
 t:=TreeView1.Items.AddFirst(nil,"fuck");
 TreeView1.Items.AddChild(t,"fuck2")
end;


 
lutik ©   (2005-01-06 20:07) [3]

А как узнать, есть ли уже такой узел или подузел на каждом шаге?


 
lutik ©   (2005-01-06 20:11) [4]

есть ли че стандартное?


 
begin...end ©   (2005-01-06 20:11) [5]

> [3] lutik ©   (06.01.05 20:07)

Перебирать TTreeView.Items, смотреть на Text и Level очередного item"а.


 
lutik ©   (2005-01-06 20:12) [6]

ок, сенкс


 
dimaxx ©   (2005-01-06 23:51) [7]

На сайте www.delphibase.endimus.com есть пример для построения дерева:

Перевод списка файлов/каталогов из TStringList в TreeView с построением "дерева каталогов". Иногда бывает нужно построить "дерево каталогов" по заданному списку файлов и папок (причем физически эти файлы и каталоги могут не существовать).

Ссылу не помню, поскольку текст сохранен в виде текста.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.042 c
1-1105340649
Dr. Genius
2005-01-10 10:04
2005.01.23
Цвет Caption’а Button’ов


3-1103247429
speed
2004-12-17 04:37
2005.01.23
Добавить запись в базу...


14-1104475289
Чеширский_Кот
2004-12-31 09:41
2005.01.23
PRC-файлы


1-1105421082
Alex_d
2005-01-11 08:24
2005.01.23
Пропал dpr


1-1104919057
Начинаюший2
2005-01-05 12:57
2005.01.23
Есть какая нибудь альтернатива Sleep?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский