 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
Проблема с ListBox, TListBox 
| Sniper |
|
|||
|
Опытный  Профиль Группа: Участник Сообщений: 511 Регистрация: 8.5.2002 Репутация: нет Всего: 2 |
Есть на форме этот ListBox.
При каждом запуске программы из определённого каталога должны считываться имена файлов с расширениями и записываться в этот ListBox(колличество файлов и их порядок записи в ListBox всегда разный) пользователь выбирает один из этих файлов, и далее программа с этим файлом производит какие-либо действия... Как вот это всё реализовать  ? -------------------- "Я испытываю отвращение к системе, разработаннной для "пользователя", если в слове "пользователь" закодировано уничижительное значение "тупой и примитивный". Кен Томпсон, создатель Unix |
|||
|
||||
Загрузка ...
| Vit |
|
|||
 Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
FindFirst, FindNext, FindClose - для поиска файлов (см. Мой топик "Все о файлах" здесь же, я там описывал)
ListBox1.items.add - метод для добавления имени файла к списку ListBox1.items[ListBox1.itemindex] - текст выбранной строки (у тебя - имя файла) -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Sniper |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 511 Регистрация: 8.5.2002 Репутация: нет Всего: 2 |
Немного переделав твой код получил:
procedure TForm1.FormCreate(Sender: TObject); var searchrec : Tsearchrec; txtread : string; begin If FindFirst('*.txt', faAnyFile, SearchRec)=0 then repeat txtread := SearchRec.name; ListBox1.items.Add(txtread); until FindNext(SearchRec) <> 0; FindClose(SearchRec); end; А как теперь КУЛЬТУРНО ИСПОЛЬЗОВАТЬ : ListBox1.items[ListBox1.itemindex] -------------------- "Я испытываю отвращение к системе, разработаннной для "пользователя", если в слове "пользователь" закодировано уничижительное значение "тупой и примитивный". Кен Томпсон, создатель Unix |
|||
|
||||
| Vit |
|
|||
|
Vitaly Nevzorov Профиль Группа: Экс. модератор Сообщений: 10964 Регистрация: 25.3.2002 Где: Chicago Репутация: 48 Всего: 207 |
Брось на форму например Memo.
Теперь на onDblClick ListBox брось следующий код: Memo.lines.loadfromFile(ListBox1.items[ListBox1.itemindex]); Должен на двойной щелчек грузить текст в Memo, правда если путь к текстовым файлам текущий, а то он их не найдет... -------------------- With the best wishes, Vit I have done so much with so little for so long that I am now qualified to do anything with nothing Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru |
|||
|
||||
| Sniper |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 511 Регистрация: 8.5.2002 Репутация: нет Всего: 2 |
Разобрался. Спасибо!
-------------------- "Я испытываю отвращение к системе, разработаннной для "пользователя", если в слове "пользователь" закодировано уничижительное значение "тупой и примитивный". Кен Томпсон, создатель Unix |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.1488 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |