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

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


Информационный Канал Subscribe.Ru

Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

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

Вышел очередной дайджест форумов. Скачать можно здесь
Кое-что из нашей кладовки   |x|
  • Потоковая запись/чтение TRxMemoryData Dred2k dred2k@mail.ru   (19.08.03 19:05)
    Модуль содержит функции потоковой записи и чтения структуры и данных объекта TRxMemoryData ("таблица в памяти", библиотека RxLib). Количество объектов в одном потоке не ограничено. Проверено на Delphi4.
    »»» Скачать: исходные тексты (2кб)
  • SongSEARCH!   1.04 Sheng sheng@tut.by   (20.08.03 21:52)
    Программа-поисковик для быстрого и удобного управления Winamp'ом. Подробности - Readme.txt в архиве.

    P.S. Ну вот и версия 1.04!!! Многие её ждали. =:-)
    »»» Скачать: исходные тексты демонстрационный EXE файл
  • Соруз 1.0 JohnJ JohnJ@mail2000.ru   (21.08.03 02:57)
    Первоначально создавал, чтобы искать названия одинаковых песен (была у меня такая проблема). Но можно найти любые файлы с одинаковыми названиями на компе... Картинки, музыку, клипы, фильмы....
    Документация на русском прилагается!
    »»» Скачать: исходные тексты (10кб) посмотреть скриншот
Лучшее из нашего 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;
   un! til 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|
  • Оцените мою игру, пожалуйста!
    Игра Колобки v 0.004 - пошаговая стрелялка типа Scorched Tanks и Worms Качать тут: http://www.colobki2003.narod....
  • DNS запрос
    Ребята! Подскажите где можна найти инфу как посылать DNS-запросы по протоколу UDP. А самое главное как их формировать? ...
  • Image
    Уважаемые мастера! Как в Image загрузить изображение из потока
  • butmap
    Кто знает как создать bitmap треугольной формы
  • высокоточный таймер
    Требуется с частотой до 10000 Гц производить чтение/запись в порт. Читал в форуме про функции QueryPerfomanceCounter, ...
  • Программное определение структуры таблиц БД
    Каким образом определить тип поля таблицы БД из программы?

У нас большой выбор статей   |x|
Проектирование на Rose Delphi Link
Компания Rational Software уже несколько лет является лидером в области создания инструментальных средств для проектирования, разработки, тестирования и сопровождения программного обеспечения. Основным продуктом в линейке Rational является CASE-средство Rational Rose. Rational Rose поддерживает визуальное объектно-ориентированное моделирование (UML), поддерживает генерацию кода и обратное проектирование (построение модели по программному коду) для многих языков программирования, позволяет строить объектную модель разрабатываемой программной системы, определять спецификации классов, объектов, атрибутов и операций.
Новинки книжного рынка   |x|
Теория и практика построения баз данных. 8-е изд.
В книге, написанной в форме учебного пособия для студентов, специализирующихся в области информационных технологий, освещается широкий круг теоретических и практических вопросов, связанных с разработкой и использованием баз данных. К особенностям восьмого издания книги относится, в частности, появление материала, посвященного новым технологиям публикации баз данных (XML) и обработки баз данных масштаба предприятия (ODBC, ASP, JDBC, JSP). Книгу отличает продуманность структуры, живой и доступный язык изложения, а также большое количество примеров, моделирующих типичные ситуации из практики делового мира.
Автор: Крёнке Д.
Другие сайты о DELPHI   |x|
Novarm Development Center
Программные продукты с Delphi исходниками, форумы для программеров и юзеров. Каталог программного обеспечения с системой получения полной статистики загрузок по сайтам и странам.

» Оценка сайта: 2
Опрос населения :)
Как вы нашли наш сайт?
»»» Поисковая система
»»» Рассылка
»»» Ссылка с другого сайта
»»» Через каталог сайтов
»»» Друг посоветовал
»»» Случайно
Для души

Хокку дня
В лунном сиянье
Движется к самым воротам
Гребень прилива.

Афоризмы
Дома ребёнок растёт медленнее, чем на улице.

Фраза дня
День пропал не зря.

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

И на закуску коротенький анекдот
Пиратская продукция заполонила прилавки: абордажные крючья, чёрные метки, ямайский ром, порох, солонина, сундуки мертвеца, аркебузы и попугаи по демпинговым ценам вытесняют с рынка аналогичные отечественные товары...

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


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

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


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

В избранное