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

Программирование от Судьи [www.del5.da.ru] Выпуск от 13/05/2002 года


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


- От Судьи -

 

- Основное месторасположение [http://del5.da.ru]

- Зеркало сайта [http://del50.by.ru]

- Mailto: [wadim274@permonline.ru]

 

Доброго времени суток, господа коллеги!

*****************************************

 

 

================================================================================

Алгоритм поиска всех файлов и папок

 

Исходный текст:

--------------------

var
TextPatch:string;
SearchRec: TSearchRec; 
begin
TextPatch:='c:\delete\';
if FindFirst(TextPatch+'*.txt', faAnyFile, SearchRec) =0 then
begin
Form1.ListBox1.Items.Add(SearchRec.Name);
while (FindNext(SearchRec) = 0) do
Form1.ListBox1.Items.Add(SearchRec.Name);
end;
end;

================================================================================

 

Новости нашего сайта:

В данный момент новостей нет...

Ссылки на дружественные сайты:

- www.sourses.ru - Исходные тексты программ, огромное кол-во!

- www.delphi4all.narod.ru - хороший сайт

- www.chertenok.km.ru - очень хороший сайт по DELPHI

- www.delphi.da.ru - много faq-ов по Delphi

- www.delphi.mastak.ru - множество полезных вещей для DELPHI

- www.delphi4.boom.ru - без коментариев

- www.delphi5.boom.ru - полезный сайт

- www.delphi.boom.ru - полезный сайт

- www.delphi.narod.ru - без коментариев

- www.delphi4.narod.ru  - без коментариев

На последок:

- Анекдот

Встретились два приятеля. У одного в руках коробка с телевизором.
- Где ты взял такой дефицит?
- Да вот, сходил к Нюрке, выпили, закусили, а потом она на кровать
плюхнулась, да как взмолится: "Вася, возьми у меня самое дорогое!"


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

В избранное