Заполнение 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)+"*.*"

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;

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