Вывод в ListView файлов с определенными расширениями

[kgms]

Облом. В виртуальном режиме не доступны CheckBox'ы. А они нужны.

[min@y™]

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

Облом. В виртуальном режиме не доступны CheckBox'ы. А они нужны.

вот так пробовал?

[evg_m]

Причем, что характерно, дублируется только последний файл в списке.

Настораживает
В коде есть ДВА места для добавления ListItem := CNCBackUp.Items.Add;

 Для удобства выкинул почти все кроме добавления и циклов
  for j:=0 to EXTLIst.Count-1 do 
  if AnsiUpperCase(fe) = ExtList.Strings[j] then
  begin
       ListItem := CNCBackUp.Items.Add;// первое добавление!!!
        while FindNext(sr) = 0 do //перебрали все файлы (КРОМЕ Первого!!!) и если надо добавили (смотри цикл ниже) а что потом ??
        begin
               fe:=GetFileFormat(SR.Name);
               for k:=0 to EXTLIst.Count-1 do
               if AnsiUpperCase(fe) = ExtList.Strings[k] then
                    begin
                         ListItem := CNCBackUp.Items.Add;
                   end;
         end;//вот здесь кончили перебор файлов и что потом (смотри начало цикла)
   end;
    FindClose(sr);
  end;

А там как раз ДОБАВЛЕНИЕ и поскольку к этому моменту список файлов просмотрен то добавляем то что есть (последний).

r:=FindFirst....
while r=0  do begin //переберем все файлы включая и первый если он есть 
    xf:=..... надо ли добавлять 
  if xf then begin //и ОДИН раз добавим даже если нашли по нескольким фильтрам
     listItem.add....
  end;
  r:=findNext...
end;

[kgms]

Спасибо, идею уловил. Попробую - отпишусь

Протестировал - отписываюсь. Спасибо огромное - работает!!!
Вот так:

      R:= FindFirst(DNCPATH+'\*.*', faAnyFile - faDirectory - faVolumeId, sr);
      while R=0 do
      begin
        fe:=GetFileFormat(SR.Name);
        for k:=0 to EXTLIst.Count-1 do
        if AnsiUpperCase(fe) = ExtList.Strings[k] then
            begin
                ListItem := DNCBrowser.Items.Add;
                ListItem.Caption := sr.name;
                ListItem.SubItems.Add(inttostr(sr.size));
                ListItem.SubItems.Add(datetimetostr(FileDateToDateTime(sr.time)));
                EXT:=AnsiUpperCase(GetFileFormat(sr.Name));
                if EXT='EIA' then ListItem.ImageIndex:=0;
                if EXT<>'EIA' then ListItem.ImageIndex:=1;
            end;
            R:=FindNext(sr);
      end;