| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как в treeview загрузить структуру диска и ... [D5, 95/98]

system ©   (2005-12-01 00:28:00) 

Привет всем! Возникли проблемы:
1)ищу все папки и файлы на диске и заношу их в ListBox как мне теперь можно их запихнуть в TreeView? Или можно ли организовать это другим образом?
Вот код:

Procedure tform1.Scan(Dir:string);
var SearchRec:TSearchRec;
 f:textfile;
begin
if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then
repeat
if (SearchRec.name='.') or (SearchRec.name='..') then continue;
if (SearchRec.Attr and faDirectory)<>0 then
FirstScanDir(Dir+SearchRec.name)
else
begin
lbProgs.Items.add(dir+searchrec.name); //мой ListBox
end;
until FindNext(SearchRec)<>0;
FindClose(SearchRec);
end;

procedure TForm1.BtScanClick(Sender: TObject);
begin
scan('c:\');
end;

2) как сохранить содержимое TreeView в файл?

---

Profi   (2005-12-04 22:50:00) [1]

system ©   (01.12.05 23:41) [3]
http://www.ASprofi.narod.ru/DiscManager247Setup.zip

---

system   (2005-12-01 23:41:00) [2]

Кто-нибудь может мне помочь или нет?

---

system   (2005-12-01 00:48:00) [3]

>Поищи на http://www.delphiworld.narod.ruтам был пример с TreeView.


Там нето мне нужно полность отсканировать диск и вывести в TreeView.
Просто я разробатую собственную программу по ведению небольшой базы своих компакт-дисков.

---

Profi   (2005-12-01 00:37:00) [4]

system ©   (01.12.05 0:28)
Поищи на http://www.delphiworld.narod.ruтам был пример с TreeView.

---

Наверх