Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Формирование дерева каталогов, Скан каталога и занесение в TListView 
:(
    Опции темы
Link90
Дата 10.6.2006, 11:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


"Битый" пиксель
*


Профиль
Группа: Участник
Сообщений: 214
Регистрация: 25.11.2005
Где: Иркутск - середин а земли!

Репутация: 3
Всего: 7
Мне нужно просканить каталог и занести результаты в TTreeView. Как это сделать? Напишите плиз код цикла, который мне поможет? smile   

Это сообщение отредактировал(а) Link90 - 10.6.2006, 11:09
PM MAIL ICQ   Вверх
BreakPointMAN
Дата 10.6.2006, 12:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 24
Цитата(Link90 @  10.6.2006,  11:01 Найти цитируемый пост)
занесение в TListView

Цитата(Link90 @  10.6.2006,  11:01 Найти цитируемый пост)
занести результаты в TTreeView

Ты уж, это, определись, куда ты хочешь результаты заносить!  smile 

И в чем именно проблема? Рекурсивно сканируешь все директории, начиная с корневой (или с той, с которой тебе надо)...
 


--------------------
"Разруха не в клозетах, а в головах." © Ф.Ф. Преображенский (М.Булгаков, "Собачье сердце")
PM WWW ICQ   Вверх
sexton
Дата 10.6.2006, 13:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sexton=Пономарь (eng)
**


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

Репутация: 5
Всего: 9
Код для получения списка файлов и поддиректорий:
Код

//примечание: List - объект TListBox
//vasCurDir - путь к проверяемому каталогу

  AnsiString vasFilename,    //имя файла
             vasFileMask;    //маска файла
 //TSearchRec информация о файле
  TSearchRec tFileInfo;
 //Определяем каталог, если корневая директория удаляем слэш
  if(vasCurDir.Length() == 3)
    vasCurDir=vasCurDir.Delete(3,1);
 //Задаем маску
  vasFileMask="*.*";
 //Определяем имя файла
  vasFilename=vasCurDir+"\\"+vasFileMask;
 //Сюда выведем список файлов
  List->Clear();
  if(FindFirst(vasFilename,faAnyFile,tFileInfo) == 0)
  {
    while(1)
    {
   //Исключаем корневую
      if((tFileInfo.Name != ".")&(tFileInfo.Name != ".."))
          List->Add(tFileInfo.Name);
      if(FindNext(tFileInfo) != 0)
        break;
    }
  }
 


--------------------
 Поставить + 

 ЖЖ 
 Рассылка Рассылок 
PM MAIL WWW ICQ   Вверх
Link90
Дата 10.6.2006, 13:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


"Битый" пиксель
*


Профиль
Группа: Участник
Сообщений: 214
Регистрация: 25.11.2005
Где: Иркутск - середин а земли!

Репутация: 3
Всего: 7
Извините, это в описании темы косяк, мне действительно нужно занесение в TTreeView! Ещё раз извиняюсь! 
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0719 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.