Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.08.2007, 23:51   #1
Andr
Пользователь
 
Аватар для Andr
 
Регистрация: 11.04.2007
Сообщений: 75
По умолчанию ComboBox и файлы

Как вписать в КомбоБокс все файлы определенной директории?
Andr вне форума Ответить с цитированием
Старый 30.08.2007, 02:04   #2
Shuraken
Форумчанин
 
Аватар для Shuraken
 
Регистрация: 16.04.2007
Сообщений: 298
По умолчанию

FindFirst, FindNext, воспользуйся поисковиком.
Не надо ничего усложнять. Все достаточно тривиально.
Shuraken вне форума Ответить с цитированием
Старый 30.08.2007, 12:35   #3
Andr
Пользователь
 
Аватар для Andr
 
Регистрация: 11.04.2007
Сообщений: 75
По умолчанию

Спасибо, сделал. Но тут такой вопрос. У меня в директории 3 папки: "Русский", "Украинский" и "Английский", а надодится еще 2 "." и "..", хотя таких нету. В чем тут дело?
Andr вне форума Ответить с цитированием
Старый 30.08.2007, 20:29   #4
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

либо они у тебя скрытые, либо код неправильный
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 30.08.2007, 20:48   #5
Andr
Пользователь
 
Аватар для Andr
 
Регистрация: 11.04.2007
Сообщений: 75
По умолчанию

Не скрытые, проверял.
Вот код:
FindFirst('Alphavit\???????', faAnyFile , sr);
repeat
ComboBox1.Items.Add(sr.Name);
until FindNext(sr) <> 0;
Andr вне форума Ответить с цитированием
Старый 30.08.2007, 21:23   #6
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

а где faDirectory ?
этот код ищет все подряд а не директории
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 30.08.2007, 21:31   #7
Andr
Пользователь
 
Аватар для Andr
 
Регистрация: 11.04.2007
Сообщений: 75
По умолчанию

Спасибо, но все равно точки есть. Да и ничего кроме директорий там нету...
Andr вне форума Ответить с цитированием
Старый 30.08.2007, 23:13   #8
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

угадай откуда?
For example, 'c:\test\*.*' specifies all files in the C:\TEST directory
Код:
 ComboBox1.Clear;
 FindFirst('Alphavit\*.*', faAnyFile , sr);
  repeat
    ComboBox1.Items.Add(sr.Name);
  until FindNext(sr) <> 0;
должно найти все файлы включая директории
в других процедурах с комбобоксом не работаешь?
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог

Последний раз редактировалось mutabor; 30.08.2007 в 23:26.
mutabor вне форума Ответить с цитированием
Старый 02.09.2007, 19:07   #9
Andr
Пользователь
 
Аватар для Andr
 
Регистрация: 11.04.2007
Сообщений: 75
По умолчанию

Из справочной системы Делфы )). Спасибо.
"в других процедурах с комбобоксом не работаешь?" - по мере надобности, а что?
Andr вне форума Ответить с цитированием
Старый 02.09.2007, 19:38   #10
vitalik007
Дельфист
Форумчанин
 
Аватар для vitalik007
 
Регистрация: 14.08.2007
Сообщений: 317
По умолчанию

ты проверяй чтоб результат не был равен '.','..'
ICQ-465033557
WINDOWS CE THE BEST
vitalik007 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ComboBox Есет Помощь студентам 1 27.03.2008 09:10
ComboBox )Игнат( Компоненты Delphi 3 19.02.2008 16:59
ComboBox Lonix Компоненты Delphi 4 10.12.2007 09:18
Не могу внести строку из combobox в combobox!? tacer Помощь студентам 1 30.11.2007 19:45
два вредных вопроса:про асю и прикриплёные файлы файлы steck Свободное общение 3 17.06.2007 14:53