Главная страница
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.046 c
4-1205913889
lead-in
2008-03-19 11:04
2010.08.27
свойства файлов


15-1274819385
Юрий
2010-05-26 00:29
2010.08.27
С днем рождения ! 26 мая 2010 среда


15-1264800605
Юрий
2010-01-30 00:30
2010.08.27
С днем рождения ! 30 января 2010 суббота


2-1275245281
Semen
2010-05-30 22:48
2010.08.27
Поиск и открытие файлов


2-1274530341
Delphist2
2010-05-22 16:12
2010.08.27
method insert класса range завершен неверно