Главная страница
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.067 c
15-1270033255
pasha_golub
2010-03-31 15:00
2010.08.27
DLL средствами MSVC Express 2008


15-1271277002
Юрий
2010-04-15 00:30
2010.08.27
С днем рождения ! 15 апреля 2010 четверг


2-1270313219
АнатолийПа
2010-04-03 20:46
2010.08.27
Транспортная


15-1273624795
Sab
2010-05-12 04:39
2010.08.27
Раздача файлов web server


15-1266434679
NewZ
2010-02-17 22:24
2010.08.27
Язык ОС.