Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 17.04.2008, 12:38   #1
- fenix -
 
Регистрация: 17.04.2008
Сообщений: 3
По умолчанию Как получить содержимое папки ?

Кто знает, подскажите пожалуйста, долго искать буду...

Есть путь к папке. Как получить список файлов которые находятся в папке ?
- fenix - вне форума Ответить с цитированием
Старый 17.04.2008, 12:42   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

воспользоваться TFileListBox [FileCtrl]
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 17.04.2008, 13:07   #3
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Вот мой способ для получения списка в виде дерева (со всеми подкаталогами):
Код:
//процедура сканирования
procedure Tfmain.ScanDir(StartDir: string; Mask:string);
var SearchRec : TSearchRec;
    oldnod: TTreeNode;
begin
if Mask='' then Mask:='*.*';
if StartDir[Length(StartDir)]<>'\' then
StartDir:=StartDir+'\';
if FindFirst(StartDir+Mask, faAnyFile, SearchRec)=0 then
repeat
Application.ProcessMessages;
if (SearchRec.Attr and faDirectory)<>faDirectory then
mnod:=TreeView1.Items.AddChild(nnod,SearchRec.Name) else
if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
begin
oldnod:=nnod;
nnod:=TreeView1.Items.AddChild(nnod,SearchRec.Name+'\');
ScanDir(StartDir + SearchRec.Name + '\',Mask);
nnod:=oldnod;
end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;

//вызов процедуры
procedure Tfmain.mFileNewClick(Sender: TObject);
var StartDir: string;
begin
//тут любым способом задаем начальный каталог
StartDir:='G:';
TreeView1.Items.BeginUpdate;
TreeView1.SortType:=stNone;
TreeView1.Items.Clear;
nnod:=TreeView1.Items.AddFirst(nil,StartDir);
ScanDir(StartDir,'');
TreeView1.SortType:=stText;
TreeView1.Items.EndUpdate;
Application.ProcessMessages;
end;
mihali4 вне форума Ответить с цитированием
Старый 18.04.2008, 12:35   #4
Carbon
JAVA BEAN
Участник клуба
 
Аватар для Carbon
 
Регистрация: 22.04.2007
Сообщений: 1,331
По умолчанию

Цитата:
Сообщение от mihali4 Посмотреть сообщение
Вот мой способ для получения списка в виде дерева (со всеми подкаталогами):
А если человек сидит под Линухом? (Хотя что-то мне подсказывает, что вряд ли. )
Carbon вне форума Ответить с цитированием
Старый 19.04.2008, 05:25   #5
MusicMan
Пользователь
 
Аватар для MusicMan
 
Регистрация: 19.04.2008
Сообщений: 66
По умолчанию

[mihali4] : Новичёк(?) в этом не сразу разберется! Если так, то вот


procedure TForm.Button1Click(Sender : TOBject);
var
SRec : TSearchRec;
begin

Dir := 'C:\';

if FindFirst(Dir+'*.*',faAnyFile,SRec) = 0 then //выдаст всё, и даже лишку
repeat
Memo1.Lines.Add(Dir+SRec.FileName);
until FindNext(SRec) <> 0
else exit;
FindClose(SRec);

end;
Нет таких проблем, которых мы не можем себе создать

Последний раз редактировалось MusicMan; 19.04.2008 в 05:56. Причина: высказался в пустую
MusicMan вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме 20000 рублей в месяц
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как просмотреть содержимое dll Shavminator Общие вопросы Delphi 7 12.07.2008 13:11
Номер строки и ее содержимое... Dr_oN Помощь студентам 2 01.06.2008 20:05
Получить содержимое Memo в чужой программе. Иллидан Win Api 14 12.05.2008 13:39
Содержимое RichTexBox в html? НЕ_АЙС Общие вопросы .NET 1 02.05.2008 17:23
Упорядочить содержимое ComboBox Ermiss Общие вопросы Delphi 2 25.01.2008 16:24


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS