Показать сообщение отдельно
  #1  
Старый 08.09.2011, 12:50
Аватар для Dead_Gigabit
Dead_Gigabit Dead_Gigabit вне форума
Начинающий
 
Регистрация: 20.10.2009
Адрес: Там где холодно и сыро.... брр
Сообщения: 135
Версия Delphi: Delphi XE
Репутация: 10
По умолчанию Поиск по расширению

Всем здравствуйте...
Есть исходный код:

Код:
begin
dtp.DateTime:=Tdatetime(now);
dec(s);
  timer.Caption:=IntToStr(s);
  if timer.Caption='0' then begin
  timer1.Enabled:=false;
    {Искать все файлы в заданной директории с расширение .DOC}
  Path := edit1.text+'*.DOC';
    {которые имеют атрибуты "Только для чтения" и "Архивный"}
  Attr := faReadOnly + faArchive;

  FindFirst(Path, Attr, F);

  {Если хотя бы один файл найден, то продолжить поиск}
  if F.name <> '' then begin
ListBox1.Items.Add('Наиден фаил: '+F.name +' ['+datetostr(dtp.Date)+']  ['+timetostr(dtp.Time)+']'); {Добавление в TListBox имени найденного файла}

Вообщем это поисковичок который в груде хлама и мусора ищет файлы с расширением .DOC , необходимо что бы программа искала по мимо doc ещё xls и txt подскажите как это добавить
Ответить с цитированием