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

← →
кактусбел © (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 удачи и тебе

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

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

Удачи.

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