Скачать: CL | DM;

Загрузить в 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;
Загружаются имена только пары файлов. В чем может быть ошибка. Как правильно реализовать эту функцию? Можно привести пример?

---

← →
Anatoly Podgoretsky ©   (2009-07-10 10:27) [4]

Ошибка здесь

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

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

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

---

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

Скачать: CL | DM;



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