Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];

Вниз

Как получить список файлов в директории включая поддиректории?   Найти похожие ветки 

 
OGR   (2002-01-30 02:12) [0]

Извините, наверняка вопрос уже поднимался, но я не смог найти как Сабж реализовать? Помогите примером или ссылкой.
Спасибо.


 
Феликс   (2002-01-30 02:36) [1]

Хреново вопрос поставлен! Если тебе нужно, ну, например скинуть в listbox все файлы в каталогах, то тебе нужен компонент поисковик. Задаешь папку в которой искать, параметры поиска, а на событие Found пишешь listbox1.items.add(filename); Возможно, тебе просто нужен FileListBox1 и DirectoryListBox1.


 
panov   (2002-01-30 06:36) [2]

В списке найдешь близкие по теме вопроса примеры:
http://delphi.mastak.ru/articles/advice/index.html


 
OGR   (2002-01-30 13:35) [3]

2Феликс: Уточняю: мне нужно скинуть в Memo1(или в listbox это не столь важно) все файлы в каталогах...
Ты говорил про компонент поисковик, а где мне его найти? Кинь ссылочку пожайлуста.

2panov
На http://delphi.mastak.ru/articles/advice/index.html написанно только
"Нужно воспользоваться функциями FindFirst, FindNext и FindClose." - а нет ли у когонить примера по сабжу...


 
panov   (2002-01-30 13:40) [4]

там есть про удаление всех файлов в подкаталогах...


 
panov   (2002-01-30 14:03) [5]

procedure ScanDir(aPath: String; var aList: TStringList);
var
SR: TSearchRec;
tPath: String;
begin
tPath := IncludeTrailingBackSlash(aPath);
if FindFirst(tPath+"*.*",faAnyFile,SR) = 0 then
begin
try
repeat
if SR.Name[1]="." then Continue;
case (SR.Attr and faDirectory) of
faDirectory: ScanDir(tPath+SR.Name,aList);
else aList.Add(tPath+SR.Name);
end;
until FindNext(SR)<>0;
finally
sysutils.FindClose(SR);
end;
end;
end;


 
OGR   (2002-01-30 14:30) [6]

2panov Спасибо, это то что нужно, я сразу незаметил.



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

Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.004 c
14-42868
Voron
2001-12-26 11:33
2002.02.14
К создателям сайта: что с поиском твориться?


1-42770
HDD
2002-01-30 05:54
2002.02.14
Помогите пожалуйста!


1-42803
Dreamer
2002-01-31 20:04
2002.02.14
Как график плавным сделать?


1-42791
alexts
2002-01-29 19:34
2002.02.14
Atlon


1-42733
Beerkoff
2002-01-30 18:02
2002.02.14
Мигание Canvas в D6





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский