Текущий архив: 2005.12.18;
Скачать: CL | DM;
Вниз
как в treeview загрузить структуру диска и ... Найти похожие ветки
← →
system © (2005-12-01 00:28) [0]Привет всем! Возникли проблемы:
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-01 00:37) [1]system © (01.12.05 0:28)
Поищи на http://www.delphiworld.narod.ru там был пример с TreeView.
← →
system © (2005-12-01 00:48) [2]
>Поищи на http://www.delphiworld.narod.ru там был пример с TreeView.
Там нето мне нужно полность отсканировать диск и вывести в TreeView.
Просто я разробатую собственную программу по ведению небольшой базы своих компакт-дисков.
← →
system © (2005-12-01 23:41) [3]Кто-нибудь может мне помочь или нет?
← →
Profi © (2005-12-04 22:50) [4]system © (01.12.05 23:41) [3]
http://www.ASprofi.narod.ru/DiscManager247Setup.zip
Страницы: 1 вся ветка
Текущий архив: 2005.12.18;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.013 c
