| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Заполнение listview [D7, XP]

Elephon ©   (2010-05-14 12:22:00) 

Заполняю listview через опендиалог:
 if opendialog.Execute then
 begin
   for i := 0 to opendialog.Files.Count - 1 do
   begin
     ListView1.Items.Add.Caption := extractfilename(Opendialog.Files[i]);
     listview1.Items[slistview1.Items.Count - 1].SubItems.append(
       opendialog.Files[i]);
   end;
   listview1.Update;
   listview1.Refresh;

Необходимо сделать заполнение через выбор директоии и тут то возникли проблемы. Пробовал сделать по аналогии:
 if PathDialog.Execute then
 begin
   if FindFirst(PathDialog.Path, faAnyFile, SR) = 0 then
   begin
     repeat
       ListView1.Items.Add.Caption :=
         extractfilename(SR.Name);
       listview1.Items[
         listview1.Items.Count - 1].SubItems.append(SR.Name);
     until FindNext(SR) <> 0;
   end;
   FindClose(SR);
   listview1.Update;
   listview1.Refresh;
 end;
Не подскажите как это реализовать?

---

Ega23   (2010-05-14 12:45:00) [1]

if opendialog.Execute then
begin
  listview1.Items.BeginUpdate;
  try
    for i := 0 to opendialog.Files.Count - 1 do
    begin
      ListView1.Items.Add.Caption := extractfilename(Opendialog.Files[i]);
      listview1.Items[slistview1.Items.Count - 1].SubItems.append(
        opendialog.Files[i]);
    end;
  finally
    listview1.Items.EndUpdate;
  end;


---

han_malign   (2010-05-14 12:35:00) [2]

IncludeTrailingPathDelimiter(PathDialog.Path)+'*.*'

---

Наверх