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

Вниз

Список всех файлов в дирректории   Найти похожие ветки 

 
xroot   (2005-08-07 22:11) [0]

Пытаюсь использовать следующий код:
procedure TFormAddFolder.P_Folder(Dir: string; Recurse: boolean);
var
 sr: TSearchRec;
begin
if FindFirst(Dir + "\*.*", faAnyFile, sr) = 0 then
begin
 repeat
  if (sr.Name <> ".") and (sr.Name <> "..") then
  begin
   if (sr.Attr = faDirectory) and (Recurse) then
    P_Folder(Dir + "\" + sr.Name, Recurse);
   if sr.Attr <> faDirectory then
    FormMain.Tree1.Items.AddChild(FirstNode, DBox1.Directory + "\" + sr.Name);
  end;
 until FindNext(sr) <> 0;
 FindClose(sr);
end;
end;

Но не сканятся вложенные директории.
Да еще, как мне вывести в TTreeView файлы не списком, а деревом


 
Leonid Troyanovsky ©   (2005-08-07 23:08) [1]


> xroot   (07.08.05 22:11)  

> Да еще, как мне вывести в TTreeView файлы не списком, а
> деревом


http://groups-beta.google.com/group/fido7.ru.delphi.chainik/msg/04d1df8f51bbff0e

--
Regards, LVT.



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

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

Наверх




Память: 0.46 MB
Время: 0.031 c
1-1124464980
Андрей Молчанов
2005-08-19 19:23
2005.09.11
свои иконки в ShellList


3-1122629751
Сергей Н.
2005-07-29 13:35
2005.09.11
Type mismatch for field


9-1115753319
Da Stranger
2005-05-10 23:28
2005.09.11
Система предотвращения столкновений


8-1114548797
Tano
2005-04-27 00:53
2005.09.11
Формат ADPCM (4, 2 бита) - кто подскажет как проеобразовать в WAV


3-1122635755
Марина
2005-07-29 15:15
2005.09.11
Особенности работы компоненты TDBLookupComboBox.