Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

Поиск фалов по маскам   Найти похожие ветки 

← →
Nord ©   (2004-04-25 17:03) [0]

Нужно срочно решить такую проблему Path3:= (form4.Edit4.Text+"/")+(("*.jpg") щк ("*.bmp") or("*.ico")or ("*.dib") or ("*.jmpg") or ("*.emf") or ("*.wmf"));
 Attr:= faAnyFile;
FindFirst(Path3, Attr, F3);
 if F3.Name <> "" then
  begin
   Form1.ListBox1.Items.Add(edit4.Text+"/"+F3.Name);
    while FindNext(F3) = 0 do
     Form1.ListBox1.Items.Add(edit4.Text+"/"+F3.Name);
    end;
  FindClose(F3);
Var
F3: TSearchRec;
Attr: integer;
Path3: string;
 type
  F3= record
   Time: Integer;
   Size: Integer;
   Attr: Integer;
   Name: TFileName;
   ExcludeAttr: Integer;
   FindHandle: THandle;
   FindData: TWin32FindData;
  end;
если искать только *.jpg, то всё работает, но нужно искать и по *.bmp и т.д. Если есть возможность помогите, сдавать нужно 26 апреля. Заранее благодарен.

---

← →
Nord ©   (2004-04-25 17:03) [0]

Нужно срочно решить такую проблему Path3:= (form4.Edit4.Text+"/")+(("*.jpg") щк ("*.bmp") or("*.ico")or ("*.dib") or ("*.jmpg") or ("*.emf") or ("*.wmf"));
 Attr:= faAnyFile;
FindFirst(Path3, Attr, F3);
 if F3.Name <> "" then
  begin
   Form1.ListBox1.Items.Add(edit4.Text+"/"+F3.Name);
    while FindNext(F3) = 0 do
     Form1.ListBox1.Items.Add(edit4.Text+"/"+F3.Name);
    end;
  FindClose(F3);
Var
F3: TSearchRec;
Attr: integer;
Path3: string;
 type
  F3= record
   Time: Integer;
   Size: Integer;
   Attr: Integer;
   Name: TFileName;
   ExcludeAttr: Integer;
   FindHandle: THandle;
   FindData: TWin32FindData;
  end;
если искать только *.jpg, то всё работает, но нужно искать и по *.bmp и т.д. Если есть возможность помогите, сдавать нужно 26 апреля. Заранее благодарен.

---

← →
panov ©   (2004-04-25 17:13) [1]

http://delphibase.endimus.ru/?action=viewtopic&topic=fileops

---

← →
panov ©   (2004-04-25 17:13) [1]

http://delphibase.endimus.ru/?action=viewtopic&topic=fileops

---

← →
Nord ©   (2004-04-25 17:23) [2]

panov больщое тебе спасибо!

---

← →
Nord ©   (2004-04-25 17:23) [2]

panov больщое тебе спасибо!

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.047 c