Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Май 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 13.05.04 09:05

Лучшее из нашего FAQ   |x|
Как получить список файлов со всеми подкаталогами 

procedure ScanDir(StartDir: string; Mask:string; List:TStrings);
var
  SearchRec : TSearchRec;
begin
  if Mask = '' then Mask := '*.*';
  if StartDir[Length(StartDir)] <> '\' then StartDir := StartDir + '\';
  if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
  begin
    repeat
      Application.ProcessMessages;
      if (SearchRec.Attr and faDirectory) <> faDirectory then
        List.Add(StartDir + SearchRec.Name)
      else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
begin
        List.Add(StartDir + SearchRec.Name + '\');
        ScanDir(StartDir + SearchRec.Name
+ '\',Mask,List);
      end;
    unt
 il FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end;
end;


Пример вызова, параметры
1. имя папки
2. маска, по умолчанию *.*
3. хранилище для резульатат,
  любой наследник от TString, например TStringList

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Clear;
  ScanDir('c:','',ListBox1.Items);
  Label1.Caption := IntToStr(ListBox1.Items.Count);
end;

С уважением
Анатолий Подгорецкий

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
  • Синхронные прием-передача на LPT
    Помогите пожалуйста, кто сталкивался с такой задачкой, хотя бы в какую сторону думать. Нужно организовать синхронный ...
  • Установка кодировки в XML
    Добрый вечер.Подскажите как установить вид кодировки в XML-файле. При использовании метода IXMLDOMDocument.SetEncoding ...
  • Background у Formы
    Как сделать, чтобы у формы был загружен фон из файла jpg или bmp, т.е. чтобы он как в HTML <body backgroun=............
  • проблема с COM. совсем загнался
    Это продолжение темы COM. Field и Data (интерфейсы) имеют свои собственные конструкторы (тоже в виде интерфейсов) ...
  • Вопрос по NMFTP
    Есть небольшая проблемка... Проблема с закачкой файлов. У меня стоит W98, у заказчика XP Собственно у меня закачка ...
  • Проблемы с элементами на форме
    При программировании на KOL возникают некоторые проблемы, когда я разрабатываю дизайн, набрасываю компоненты, после ...
  • ADO Access поля типа OLE-объект
    Простите заранее за дебильный вопрос: просмотрела много форумов и FAQов на разных сайтах, потратила кучу времени, нашла ...
У нас большой выбор статей   |x|
Эволюция средств разработки Web приложений в Delphi. Часть 3. Использование Web Services
Web Service – это приложение-сервер, предоставляющее клиенту свои функции через протоколы Internet. В отличие CGI и других подобных internet приложений, Web Services ориентируются не на предоставление информации человеку в удобной для восприятия форме, а на обмен информацией между приложениями...
Новинки книжного рынка   |x|
Реестр Windows XP. Специальный справочник
В настоящем издании подробно рассматриваются практические приемы настройки операционной системы Microsoft Windows XP Home и Professional Edition методом редактирования системного реестра. В книге детально описывается архитектура реестра, объясняется соответствующая терминология, рассказывается об инструментальных средствах для работы с реестром и о вспомогательном программном обеспечении. Также в рамках настоящей книги изучается широкий круг смежных вопросов, таких как организация системных служб Windows XP и оптимизация работы системы, даются практические рекомендации по повышению ее быстродействия. Книга предназначена для опытных пользователей и системных администраторов.
Автор: Шалин П. А.
Другие сайты о DELPHI   |x|
Сквозняк информации
Всё о программировании на Delphi и Assembler: обмен информацией с внешними устройствами; сетевые технологии и коммуникации; электроника и схемотехника; микроконтроллеры; веб-дизайн, раскрутка, ...
» Оценка сайта: 4
Опрос населения :)
Какой сайт по Delphi лучший?
»»» Королевство Дельфи
»»» Этот сайт
»»» Дельфи. Вокруг да около
»»» Другой
»»» Чем больше, тем лучше!
Для души

Хокку дня
Пруд густ выдохами тумана
зажелтели на кромке воды
первые кораблики осени.

Афоризмы
Поддерживая войну во имя благородной цели, задумайся: стоит ли достижение этой цели жизни твоего сына-солдата?

Фраза дня
Кулер тоже вертолет. Только маленький еще.

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Логан Каунти в штате Колорадо (США) считается преступлением целовать женщину, пока она спит.
В Коннектикуте (США) запрещается выбрасывать использованные бритвы. В этом же штате никто, кроме слепых, не может ходить с белой тростью.

И на закуску коротенький анекдот
- Вывели новую породу охотничьих пчёл. Огромные как медведи, злые, как собаки...
- А мёд-то они приносят?
- Конечно, у бабок на рынке отбирают и приносят.

Фотоприколы.
Начните день с хорошего настроения!
http://www.delphimaster.ru/cgi-bin/prikol.pl?id=4327

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (merlin@delphimaster.ru)

Добро пожаловать на сайт -= Мастера DELPHI =- 

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу

В избранное