Форум: "Начинающим";
Текущий архив: 2009.09.13;
Скачать: [xml.tar.bz2];
Вниз
Загрузить в 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.09.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c
