Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: 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 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.076 c
2-1268654563
Thesis
2010-03-15 15:02
2010.08.27
Битовая логика


15-1272473800
NailMan
2010-04-28 20:56
2010.08.27
Нужен нормальный юрист, проверенный в Москве. Кто знает?


2-1269543236
Первокурсница
2010-03-25 21:53
2010.08.27
Delphi 7: строки, обратный порядок слов


2-1268686344
yurpos
2010-03-15 23:52
2010.08.27
Помогите бестолковому


2-1271925649
trebufov
2010-04-22 12:40
2010.08.27
многострочный CheckListBox