Вопросец

← →
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;

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

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

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

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