Форум: "Система";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];

Вниз

Кнопки и папки   Найти похожие ветки 

← →
DJ Vano   (2003-10-12 15:54) [0]

Уважаемые мастера помогите чайнику
Необходимо:
1 Определить кличество папок в директории
2 Создать на Форме количество кнопок = количеству папок в директории
3 Задать Имя папки = Имя кнопки
4 ПО нажатию кнопки - вход в директорию соответствующей папки и п.1
Если можно - кусочек кода заранее спасибо....

---

← →
DVM   (2003-10-12 16:08) [1]

> Определить кличество папок в директории

FindFirst+FindNext

> Создать на Форме количество кнопок = количеству папок в
> директории

MyButton := TButton.Create(self);

> Задать Имя папки = Имя кнопки

MyButton.Caption := Имя папки


> ПО нажатию кнопки - вход в директорию соответствующей папки
> и п.1

ShellExecute()

---

← →
DJ Vano   (2003-11-12 23:46) [2]

Извините, но можно по-подробнее???
Первые шаги в Делфи - Поддержите......

---

← →
Fibonachi   (2003-11-13 15:50) [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-13 22:54) [4]

Спасибо за ответ, но до этапа использования хелпа я уже дорос,
и там смотрел..............
Но эта функция ищет файл, а мне нужны папки - вот проблема....
Что я только там не редактировал.....
Вобщем, еще раз помогайте плиз....

---

← →
DVM   (2003-11-14 17:07) [5]

> Но эта функция ищет файл, а мне нужны папки - вот проблема....

а по-вашему папка(директория) это не файл???
Это файл, со специальным атрибутом и содержащий список тех файлов и папок, что "внутри него" хранится. Эта функция ищет и папки тоже. См. хэлп.

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c