Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.17;
Скачать: CL | DM;

Вниз

Из строки, содержащей путь в TreeView   Найти похожие ветки 

 
cashe   (2003-11-07 23:39) [0]

Добрый день, знатоки Delphi.
Не могу никак реализовать следующее: есть текстовый файл, в котором строка за строкой перечисленны имена файлов в какой-либо директории. Например:
C:\Temp\MyFolder\file1.txt
C:\Temp\MyFolder\file2.txt
C:\Temp\justfile.dat
....
C:\Temp\MyFolder\777\temp.tmp
....
Этих файлов нет на диске, но их пути прописаны в файле.
Как мне восстановить из файла дерево каталогов (и файлов) в TreeView? Чтобы по нему можно было лазить, как в обычном проводнике.
Надеюсь на вашу помощь. Лучше всего кусок кода. Или может уже есть такой готовый компонент, кто сталкивался?
Спасибо!


 
Makhanev A.S. ©   (2003-11-08 00:25) [1]

Как вариант:
1) создаём массив Filenames: TStringList - содержит строки файла, заодно делаем исключение Duplicates
2) бежим в цикле по массиву
for i := 0 to FileNames.Count-1 do
AddToTree(Filenames[i]);

function AddToTree(Path: string);
begin
//создаём TStrings с Delimeter="\".
//бежим по нему, в поисках соответствующего TreeNode,
//если все TreeNodes найдены, то ничего не делаем, иначе - на каждом уровне создаём соответствующий TreeNode
end;


 
cashe   (2003-11-08 01:37) [2]

А можно про Delimeter поподробнее, плз?



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

Текущий архив: 2003.11.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.031 c
8-56766
Артем К
2003-07-23 02:00
2003.11.17
Как отобразить цветную картинку в градациях серого?


6-56783
V-A-V
2003-09-23 14:40
2003.11.17
Созранение прикрепленных файлов !!!


1-56735
Timon
2003-11-06 19:16
2003.11.17
Замена фраз в бинарном файле. Помогите


1-56673
512 ram
2003-11-05 08:09
2003.11.17
Можно ли с помощью средств Delphi запустить файл


3-56464
bmw
2003-10-28 17:14
2003.11.17
Пропуск результата exec