Загрузить в combobox имена папок из указанной директории

← →
Elephon (2009-07-09 18:42) [0]

Помогите с проблемой... необходимо загрузить имена папок из директории программы
Использую код:
var sr: TSearchRec;
begin
ComboBox1.Clear;
if FindFirst("*.*", faAnyFile, sr) = 0 then
begin
repeat
ComboBox1.Items.Add(sr.Name);
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
Но при его использование в начале списка отображаются точка и далее двухиточее, и еще имена файлов. Как можно загрузить ток имена папок без дополнительных символов…

← →
Varkan (2009-07-09 18:49) [1]

> faAnyFile

а вам папки (директории)

← →
Медвежонок Пятачок © (2009-07-09 18:50) [2]

Если не точка и не две точки и если папка, то добавить в список.

← →
Elephon (2009-07-10 10:21) [3]

Опять таки вопрос, при использовании кода:
var sr: TSearchRec;
begin
ComboBox1.Clear;
if FindFirst("*.*", faDirectory, sr) = 0 then
begin
repeat
if sr.Name <> "." then
if sr.Name <> ".." then
ComboBox1.Items.Add(sr.Name);
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
Загружаются имена только пары файлов. В чем может быть ошибка. Как правильно реализовать эту функцию? Можно привести пример?

Ошибка здесь

if FindFirst("*.*", faDirectory, sr) = 0 then

Смотри как надо здесь

http://www.podgoretsky.com/ftp/Docs/Delphi/FAQ/ru.delphi.html#N157

Загрузить в combobox имена папок из указанной директории Найти похожие ветки