Поиск По маске

[CoreFox]

Только недавно начал учить Delphi , вот так и немогу понять как поставить маску *.jpg ,*.gif ,*.jpeg и тд каждый раз копировать и заменять Маску поиска '*.jpg' мне кажется глупо ..



var
searchResult : TSearchRec;
f:integer;

begin
memo1.Clear;
if FindFirst('*.jpg' , faAnyFile, searchResult) = 0 then
begin
repeat
memo1.Lines.Add (String (''+searchResult.Name));//имя файла который нашли
until FindNext(searchResult) <> 0;
FindClose(searchResult);

f:=Form1.Memo1.Lines.Count;//щитаем строки
edit1.text:=IntToStr (f);// 1 Строка = 1 файл .Так узнаем сколько нашли

end;

[Alar]

(FindFirst('*.jpg' , faAnyFile, searchResult) = 0)or(FindFirst('*.gif' , faAnyFile, searchResult) = 0)

then

и т.д.

То есть нужно использовать логические операторы.

[CoreFox]

Сообщение от Alar

(FindFirst('*.jpg' , faAnyFile, searchResult) = 0)or(FindFirst('*.gif' , faAnyFile, searchResult) = 0)

then

и т.д.

То есть нужно использовать логические операторы.

Большое спасибо

[mrandrey]

мужики помогите кто может

вот написал:

procedure TForm1.FormCreate(Sender: TObject);
var r:TSearchRec;
begin
lb.Clear;
SetCurrentDir('d:\');
if((FindFirst('*.m3u',faAnyFile,r)=0)or(FindFirst('*.doc',faAnyFile,r)=0))then
 repeat
  lb.items.Add(r.Name);
 until(FindNext(r)<>0);
FindClose(r);
end;

а он ищет только m3u файлы что не так?

[alexBlack]

Во первых короткое вычисление булевых выражений - второе выражение не вычисляется. Во вторых FindFirst инициализирует R.

Не проще сделать отдельную функцию ?:

procedure findByMask(mask:String; items:TStrings);
begin
   if FindFirst(mask,faAnyFile,r) ...
end;

findByMask('*.m3u', Items);
findByMask('*.doc', Items);

[Stilet]

mrandrey

А может лучше делать по маске *.*, но проверять на нужное расширение уже в твоей проге?

[B_N]

НЕЛЬЗЯ здесь использовать логические операторы по двум причинам минимум:
1. Оптимизация вычислений логических выражений. Если мы определяем, чему равно выражение (X1 or X2) и X1 - истинно, то значение X2 вычисляться не будет, т.е. в данном случае FindFirst не будет вызвана второй раз.
2. все разновидности функции findfirst возвращают объект, который в дальнейшем используется функцией findnext, соответсвенно, если мы вызовем findfirst десять раз подряд, значение будет иметь только последний вызов.

В данном случае нужно вызывать findfirst для каждого расширения отдельно и пользоваться в дальнейшем группами findnext для каждого возвращенного разными findfirst хэндлами по отдельности.

[mrandrey]

значит Alar бред советует, и если мне нужно найти файлы с неколькими розрешениями, прибется либо несколько раз либо проверять вручную?!!!
херово получается! Но все равно спасибо!

[Stilet]

значит Alar бред советует

Не совсем бред. Если не ошибаюсь отключение оптимизации для этого действия поможет ему выполняться так как ты хочеш,но все равно прислушайся к советам Бьена, он постом выше правильно сказал, посему если так делать то открывать два разных поиска.

[Alter]

Использвать для сравнения найденного пути, строк.
Здесь: S - сравниваемая строка, Lst - Массив масок;
Если True значит есть совпадения.

Uses Masks;
..................
Function TForm1.FileInMask(S :String; Lst :TStrings):Boolean;
Var I, II :LongInt;
begin//Проверка файла на наличие его в списке Маск поиска
 Result := False;
 IF Length(S)<=0 Then Exit;
   II := Lst.Count;
 IF II>0 Then
 For I:=0 To II - 1 DO
 begin
  Application.ProcessMessages();
  IF MatchesMask(S, Lst[I]) Then // Если соответствует маске, выходим
  begin
   Result := True;
   Break;
  end;
 end;
end;
..........................

___________________________________ ______________________________
Как видите не так сложно, ищет быстро.