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

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

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

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

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

←   Сентябрь 2003   →
 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
Автор
Сергей

Статистика

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

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


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

DELPHIMASTER.ru

Выпуск от 05.09.03 09:04

Кое-что из нашей кладовки   |x|
Лучшее из нашего 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;
    until 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|
  • Программный счётчик для принтера
    Можно как-нибудь сделать программный счётчик для принтера? То есть перехватывать через какой-нибудь интерфейс тот факт, ...
  • все то же сетевое имя
    подскажите кто знает, как можно получить не только сетевое имя, но и контекст при входе пользователя в программу....
  • как синхронизировать потоки данных?
    Господа! сразу прошу прощения за достаточно размытый вопрос. но все же... я делаю передачу звука по сети. конечно тема ...
  • Глюки в проге или в DelphiX
    Мастера! Я делаю космическую леталку с элементами стратегии на DelphiX. Возникла такая проблемма: При старте игры на ...
  • Открытие файла
    Как открыть (сохранить) файл из Memo (RichEdit)? Спасибо.
  • Com-порт
    Помогите пожалуйста найти исходники или компаненты для Delphi по работе с com портами (нужно с Com 2), а именно ...
  • Перенос данных
    Добрый день госпада! Помогите решить проблемку. Получил я данные в TADOQuery из ДБФ поколдавал над ними и мне надо их ...
У нас большой выбор статей   |x|
Эволюция средств разработки Web приложений в Delphi. Часть 2. WebSnap
Технология WebSnap является дальнейшим развитием технологии WebBroker, еще более упрощающей разработку приложений для Web. Поддержка нескольких Web модулей делает возможной разделить труд по разработке приложения между несколькими разработчиками, возможность доступа к объектам модуля из скрипта, выполняемого на стороне сервера дает возможность «оживить» HTML страницы...
Новинки книжного рынка   |x|
Программирование баз данных в Delphi 7. Учебный курс
В книге описываются многочисленные визуальные и невизуальные компоненты, а также технологии, использующиеся для создания приложений баз данных. Последовательно рассматриваются три наиболее распространенных архитектуры баз данных — файл-серверная, клиент-серверная и трехзвенная. Многие описываемые технологии могут быть применены и в более ранних версиях пакета Delphi. Книга содержит также значительный объем тщательно отобранной и хорошо организованной справочной информации.
Автор: Фаронов В. В.
Другие сайты о DELPHI   |x|
Портал по программированию
Портал по программированию. Visual C++ (MFC, ATL, основы языка), Visual Basic и VB.NET (ActiveX, controls), C#, Delphi (VCL), COM-технологии, Java, WEB-дизайн (PHP, ASP, HTML, Perl) и др. - уроки, ...
» Оценка сайта: 4
Опрос населения :)
Стоит ли устраивать встречи программистов в реале? (пирушки :)
»»» Обязательно!
»»» Иногда можно
»»» Я туда не пойду
»»» Категорически нет
Для души

Хокку дня
Где листья
На земле лежат
Ход времени замедлен.

Афоризмы
Прогноз погоды по радио не совпадает с прогнозом на ТВ: у них разные аудитории.

Фраза дня
Вы имеете право хранить молчание. Все что вы скажете, будет искажено и направлено против вас.

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

И на закуску коротенький анекдот
На уроке классической литературы. Учительница:
- Кто может привести пример языка, на котором никто сегодня не говорит, но который является фундаментом других языков?
Вовочка:
- НTML!

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

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

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное