Скачать: CL | DM;

Заполнение listview   Найти похожие ветки 

← →
Elephon   (2010-05-14 12:22) [0]

Заполняю 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;
Не подскажите как это реализовать?

---

← →
han_malign   (2010-05-14 12:35) [1]

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

---

← →
Ega23 ©   (2010-05-14 12:45) [2]

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;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.953 c