Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Список всех файлов в дирректории [D7, WinXP]

xroot © (2005-08-07 22:11:00)
Пытаюсь использовать следующий код:
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:00) [1]

> xroot (07.08.05 22:11)

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

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

--
Regards, LVT.

Наверх

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