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

Вниз

Вопросец   Найти похожие ветки 

← →
grab3   (2003-01-10 13:17) [0]

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

---

← →
F1   (2003-01-10 13:29) [1]

FindFirst.. FindNext!!!

---

← →
Anatoly Podgoretsky   (2003-01-10 13:33) [2]

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

---

← →
grab3   (2003-01-10 14: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;

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

---

← →
MBo   (2003-01-10 14:02) [4]

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

---

← →
grab3   (2003-01-10 14:09) [5]

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

---

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

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

Наверх

Память: 0.44 MB
Время: 0.009 c