Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Elephon © (2009-07-09 18:42:00)
Помогите с проблемой... необходимо загрузить имена папок из директории программы
Использую код:
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;
Но при его использование в начале списка отображаются точка и далее двухиточее, и еще имена файлов. Как можно загрузить ток имена папок без дополнительных символов…

Anatoly Podgoretsky (2009-07-10 10:27:00) [1]
Ошибка здесь

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

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

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

Elephon (2009-07-10 10:21:00) [2]
Опять таки вопрос, при использовании кода:
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;
Загружаются имена только пары файлов. В чем может быть ошибка. Как правильно реализовать эту функцию? Можно привести пример?

Медвежонок Пятачок (2009-07-09 18:50:00) [3]
Если не точка и не две точки и если папка, то добавить в список.

Varkan (2009-07-09 18:49:00) [4]

> faAnyFile

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »