![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопросец [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!!!