Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 27, средняя оценка - 4.78
vladislav147
5 / 4 / 1
Регистрация: 08.06.2012
Сообщений: 111
#1

ListBox и файлы - Delphi

28.06.2012, 06:26. Просмотров 3677. Ответов 40
Метки нет (Все метки)

Нужно сделать так чтоб в Listbox были те файлы которые в выбраной папке с проектом ...

Добавлено через 4 часа 6 минут
Честно нужен ответ .... Спасиб...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.06.2012, 06:26
Я подобрал для вас темы с готовыми решениями и ответами на вопрос ListBox и файлы (Delphi):

Файлы из ListBox
Добрый день. Подскажите каким образом можно реализовать задачу: Необходимо...

Файлы по порядку, listbox
У меня есть строки, я хочу чтобы к каждой строке был txt, а потом в эти строки...

ListBox и файлы в папке ( Plugins )
Вопрос: какой код, или тема ... нужно чтоб в ListBOx были файлы такие которые в...

В ListBox вводится последовательность строк. Вывести их в ListBox в обратном порядке
Помогите пожалуйста решить задачу :) очень надеюсь на ответ... В ListBox...

Использование listbox и checked listbox
Создать оконное приложение. В правую часть окна поместить listbox, а в левую -...

Написать программу, преобразующую XML-файлы в DDF-файлы
Нужно написать программу, преобразующую XMLфайлы в DDFфайлы... Посоветуйте с...

40
Одиночка
3933 / 1858 / 337
Регистрация: 16.03.2012
Сообщений: 3,869
14.12.2014, 21:54 #41

Не по теме:

Попробую подправить.



Добавлено через 1 час 1 минуту
Чтобы скрыть форму с ListBox-ом при отсутствии файлов в директории: Поменяй немного процедуру:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
Procedure TForm1.FindFileInFolder(path, ext: string);
Var
  SR : TSearchRec;
begin
  ListBox1.Items.Clear;
  If FindFirst(path+ext,faAnyFile,SR)=0 Then
  Repeat
    If (Sr.name='.') Or (Sr.name='..') Then Continue;
    ListBox1.Items.Add(Sr.name);
  Until FindNext(SR)<>0;
  FindClose(SR);
end;
и
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled:=False;
 
  If WaitForSingleObject(ChangeHandle,0)=WAIT_OBJECT_0 Then
  //Если есть изменения в директории
  Begin
    FindFileInFolder(FDirectory,'*.*'); //Изменяем ListBox
    //Фактически - запуск нового слежения
    FindNextChangeNotification(ChangeHandle);
  End;
  Form1.Visible:=ListBox1.Items.Count<>0;
  Timer1.Enabled:=True; //Запускаем таймер для слежения
end;
Но имей в виду, что форма после запуска даже если невидима, всё равно находится в памяти. Поэтому перед закрытием своей основной формы тебе нужно будет закрывать и дочернюю. Хотя, по идее, она и сама закроется.
0
14.12.2014, 21:54
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2014, 21:54
Привет! Вот еще темы с решениями:

ListBox
Здравствуйте у меня такой вопрос у меня на форме есть Edit и ListBox в ListBox...

ListBox
В ListBox есть записи. Как удалить помеченную запись и при этом чтобы...

ListBox
Здравствуйте форумчане. проблема. Есть два ListBox'а в первом хранится имя...

ListBox
Разработайте приложение из одной формы, разместив на форме компоненты ListBox,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
41
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru