| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Кнопки и папки [D7, WinXP]
DJ Vano © (2003-10-12 15:54:00)
Уважаемые мастера помогите чайнику
Необходимо:
1 Определить кличество папок в директории
2 Создать на Форме количество кнопок = количеству папок в директории
3 Задать Имя папки = Имя кнопки
4 ПО нажатию кнопки - вход в директорию соответствующей папки и п.1
Если можно - кусочек кода заранее спасибо....
DVM (2003-11-14 17:07:00) [1]
> Но эта функция ищет файл, а мне нужны папки - вот проблема....
а по-вашему папка(директория) это не файл???
Это файл, со специальным атрибутом и содержащий список тех файлов и папок, что "внутри него" хранится. Эта функция ищет и папки тоже. См. хэлп.
DJ Vano (2003-11-13 22:54:00) [2]
Спасибо за ответ, но до этапа использования хелпа я уже дорос,
и там смотрел..............
Но эта функция ищет файл, а мне нужны папки - вот проблема....
Что я только там не редактировал.....
Вобщем, еще раз помогайте плиз....
Fibonachi (2003-11-13 15:50:00) [3]
> Извините, но можно по-подробнее???
> Первые шаги в Делфи - Поддержите......
Ели хочешь научиться эфективно использовать язык, учись пользоваться помощью: прямо в дельфе нажимаешь F1, далее содержание->поиск и пишешь в строке всё, что нужно. Или в редакторе ставишь курсор на нужное слово и ctrl-F1. Там есть и описание, и примеры. Правда, английский надо знать хоть на уровне третьего класса 8-).
Если лень, цитирую пример по FindFirst
var
SearchRec: TSearchRec;
procedure TForm1.SearchClick(Sender: TObject);
begin
FindFirst("c:\Program Files\delphi3\bin\*.*", faAnyFile, SearchRec);
Label1.Caption := SearchRec.Name + " is " + IntToStr(SearchRec.Size) + " bytes in size";
end;
procedure TForm1.AgainClick(Sender: TObject);
begin
if (FindNext(SearchRec) = 0)
Label1.Caption := SearchRec.Name + " is " + IntToStr(SearchRec.Size) + " bytes in size";
else
FindClose(SearchRec);
end;
Удачи!!!!
DJ Vano (2003-11-12 23:46:00) [4]
Извините, но можно по-подробнее???
Первые шаги в Делфи - Поддержите......
DVM (2003-10-12 16:08:00) [5]
> Определить кличество папок в директории
FindFirst+FindNext
> Создать на Форме количество кнопок = количеству папок в
> директории
MyButton := TButton.Create(self);
> Задать Имя папки = Имя кнопки
MyButton.Caption := Имя папки
> ПО нажатию кнопки - вход в директорию соответствующей папки
> и п.1
ShellExecute()
| |
