Скачать: CL | DM;

как найти все фаилы определенного типа в каталоге   Найти похожие ветки 

← →
кактусбел ©   (2004-07-20 01:20) [0]

Доброго времени суток мастера
Мне нужно найти все фаилы типа jpg в каталоге   и добавить их в list box я использую такой  код но у негоь есть глюк если фаилов в каталоге болеше двух то один из фаилов добавляется дважды .
amask:="*.jpg";
     r:=findfirst(apath+amask,faanyfile, asearchrec);
        if r=0 then
           begin
            form1.ListBox1.Items.Add(asearchrec.Name);
            r:=findnext(asearchrec);
                while r=0 do
                           begin
                               r:=findnext(asearchrec);
                               form1.ListBox1.Items.Add (asearchrec.Name);
                           end;
                     end;

Может кто знает метод лучше ....

---

← →
Almaz ©   (2004-07-20 02:08) [1]

Ну зачем же так сложно :) Попробуйте проще:

var
 SearchRec: TSearchRec;
...
 if FindFirst("D:\*.jpg", faAnyFile and not faDirectory, SearchRec) = 0 then
 repeat
   ListBox1.Items.Add(SearchRec.Name);
 until FindNext(SearchRec) <> 0;


Удачи.

---

← →
кактусбел ©   (2004-07-20 21:21) [2]

Спасибо Almaz .
а можно ли заменить   "D:\*.jpg" на переменную которая содержитв в себе getcurentdirectory+"*.jpg" ???

ps удачи и тебе

---

← →
Almaz ©   (2004-07-22 04:15) [3]

> а можно ли заменить   "D:\*.jpg" на переменную которая содержитв
> в себе getcurentdirectory+"*.jpg" ???

Конечно можно :)

Удачи.

---

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

Скачать: CL | DM;



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