Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Вопросец [D6]


grab3 ©   (2003-01-10 13:17:00) 

Скажите пожалуйста, как мне найти имена с неким расширением в нужной директории и добавить их в StringList.


grab3   (2003-01-10 14:09:00) [1]

Тьфу ты! Надо бы спать почаще... :-)))


MBo   (2003-01-10 14:02:00) [2]

после do поставь begin ;)


grab3   (2003-01-10 14:00:00) [3]

var ff:_WIN32_FIND_DATA;
var nf:_WIN32_FIND_DATA;
var firsts:cardinal;
begin
firsts:=findfirstfile("c:\*.*",ff);
listbox1.Items.Add(ff.cFileName);

while findnextfile(firsts,nf) do
findnextfile(firsts,nf);
listbox1.Items.Add (nf.cFileName);
end;

Вот смотрите! Он при таком раскладе находит только два файла, что неверно?


Anatoly Podgoretsky   (2003-01-10 13:33:00) [4]

Не прошло и полгода, как ты возвратился (вопрос про FindFirst)


F1   (2003-01-10 13:29:00) [5]

FindFirst.. FindNext!!!


Наверх

Титульная страница Поиск, карта сайта Написать письмо