Подсчет кол-во файлов в папке

[epickgod]

Знающие, подскажите, как сделать подсчет файлов (только *.jpg *.jpeg *.bmp *.tif *.tiff !!!) в папке. Вот код, которые подсчитывает кол-во ВСЕХ файлов в папке

function FileCount(const aFolder: string): Integer;
var
  H: THandle;
  Data: TWin32FindData;
begin
  Result := 0;
  H := FindFirstFile(PCHAR(aFolder + '*.*'), Data);
  if H <> INVALID_HANDLE_VALUE then
    repeat
      Inc(Result, Ord(Data.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0));
    until
      not FindNextFile(H, Data);
  Windows.FindClose(H);
end;

[Serge_Bliznykov]

ну, например, так:

function FileCount4FExt(const aFolder: string): Integer;
var
  H: THandle;
  Data: TWin32FindData;
begin
  Result := 0;
  H := FindFirstFile(PCHAR(IncludeTrailingBackslash(aFolder) + '*.*'), Data);
  if H <> INVALID_HANDLE_VALUE then
    repeat
      if ((Data.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0) then begin
        if (AnsiUpperCase(ExtractFileExt(Data.cFileName))='.JPG') or
           (AnsiUpperCase(ExtractFileExt(Data.cFileName))='.JPEG') or
           (AnsiUpperCase(ExtractFileExt(Data.cFileName))='.BMP') or
           (AnsiUpperCase(ExtractFileExt(Data.cFileName))='.TIF') or
           (AnsiUpperCase(ExtractFileExt(Data.cFileName))='.TIFF') then
        Inc(Result);
      // Inc(Result, Ord(Data.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0));
      end;
    until not FindNextFile(H, Data);
  Windows.FindClose(H);
end;

[epickgod]

спасибо, вечером проверю)

[JUDAS]

 if (AnsiUpperCase(ExtractFileExt(Data.cFileName))='.JPG') or
           (AnsiUpperCase(ExtractFileExt(Data.cFileName))='.JPEG') or
           (AnsiUpperCase(ExtractFileExt(Data.cFileName))='.BMP') or
           (AnsiUpperCase(ExtractFileExt(Data.cFileName))='.TIF') or
           (AnsiUpperCase(ExtractFileExt(Data.cFileName))='.TIFF') then

Сергей, когда нужно сравнивать строку из многими вариантами, я делаю вот так:

const 
  cMask = '?.JPG?.JPEG?.BMP?.TIF?.TIFF';
  if Pos('?'+AnsiUpperCase(ExtractFileExt(Data.cFileName)), cMask)>0 then
  найдено

Очень хороший метод. В примере я поставил ? (невозможный для файловой системы символ) для того чтобы находило наверняка вещи типо .TIF .TIFF
Иногда, требуется сопоставить строке индекс. Тогда

 cMask = '01?.JPG22?.JPEG07?.BMP09?.TIF03?.TIFF';
....
 p:=Pos('?'+AnsiUpperCase(ExtractFileExt(Data.cFileName)), cMask);
 if p>0 then
  index :=  StrToInt(Copy(cMask, p-2,2));

Не спорю про Ваш метод, он рабоч, но условие будет перебирать 5 раз AnsiUpperCase и ExtractFileExt. что притормаживает работу цыкла при количестве файлов в несколько тысяч (например папака с иконками или картинками со свадьбы)))

[Serge_Bliznykov]

Очень хороший метод. В примере я поставил ? (невозможный для файловой системы символ)

угу. не спорю. Полностью согласен!
Можно и так.

я, когда писал пример, хотел все расширения затолкать в TStringList и проверять их наличие поиском. Но потом решил, что для 5-ти расширений - это сильно жирно будет...

Чтобы избежать многократного вызова я обычно завожу доп.переменную:
sTemp := AnsiUpperCase(ExtractFileExt(Data.c FileName));
и потом уже с ней работаю. (сравниваю, ищу и т.д. и т.п.)

Впрочем, подходом с поиском в строке тоже часто пользуюсь.
Это действительно простой, надёжный и быстрый способ.

[JUDAS]

Чтобы избежать многократного вызова я обычно завожу доп.переменную:

Согласен. В некоторых случаях дополнительная переменная посто необходима для читабильности текста