[valvl63]

Привет.
Можно ли загрузить все находящиеся файлы в ListBox-е в ListView?
Примерно так как из ListBox1 в ListBox2:

Код:

 var
 Aric : array of String;
 i: integer;
begin
   SetLength(Aric, ListBox1.Items.Count);
  for I := 0 to ListBox1.Items.Count - 1 do
    Aric[i]:= ListBox1.Items.Strings[i];
  for i:= 0 to ListBox1.Items.Count -1 do
    listbox2.Items.Add(Aric[i]);
end;

[Alegun]

Сообщение от valvl63

...Можно ли загрузить все находящиеся файлы в ListBox-е в ListView?...

Наверное не сами файлы, а лишь их имена?

Добавлено позже

Можно, точно так же как в этом коде, только в цикле вместо бокса нужно использовать ListView.Items.Add()

[valvl63]

Сообщение от Alegun

Наверное не сами файлы, а лишь их имена?

Две колонки. В первой имена, в другой полный путь.
Пробовал вот примерно так, но понимаю что не грамотно.

Код:

 

 ListView1.SmallImages:= ImageList1;
ListBox1.Selected[0]:= true;
         if Listbox1.count = 1 then exit
     else
          LV_InsertFiles(Pchar(listbox1.Items.Strings[Listbox1.Itemindex]), ListView1, Imagelist1);
      ListBox1.itemindex:=Listbox1.itemindex+1;
...

[Alegun]

Какие две колонки, может донор не Listbox?Пжлст,образец покажите

Добавлено позже

Есть такой код, и он работает

Код:

var
i, b:integer;
begin
  if OpenDialog1.Execute then
  begin
  ListView1.SmallImages:= ImageList1;
  for i := 0 to Opendialog1.Files.Count - 1 do
  LV_InsertFiles(OpenDialog1.Files.Strings[i], ListView1, Imagelist1);
   for b := 0 to OpenDialog1.Files.Count - 1 do
    ListBox1.Items.Add(OpenDialog1.Files.Strings[b]);
 end;
end;

[valvl63]

Код:

user
   shellapi
...

procedure LV_InsertFiles(strPath: string; LV: TListView; IL: TImageList);
var
   Icon: TIcon;
   ListItem: TListItem;
   FileInfo: SHFILEINFO;
begin
                                                         // Создать временную TIcon
  Icon := TIcon.Create;
   LV.Items.BeginUpdate;
   ListItem := LV.Items.Add;
                                                           // Получить DisplayName
          SHGetFileInfo(PChar(strPath), 0, FileInfo,
             SizeOf(FileInfo), SHGFI_DISPLAYNAME);
          Listitem.Caption := FileInfo.szDisplayName;
                                                            // Получить TypeName
          SHGetFileInfo(PChar(strPath), 0, FileInfo,
             SizeOf(FileInfo), SHGFI_TYPENAME);
           ListItem.SubItems.Add(strPath);      // Полный путь
                                                               // Получить значок, который представляет файл
          SHGetFileInfo(PChar(strPath ), 0, FileInfo,
             SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON);    // Иконка файла
           icon.Handle := FileInfo.hIcon;
           ListItem.ImageIndex := IL.AddIcon(Icon);


           // Destroy the Icon
          //DestroyIcon(FileInfo.hIcon);


     //Icon.Free;
     LV.Items.EndUpdate;
end;
...

 begin
ListView1.SmallImages:= ImageList1;
 LV_InsertFiles(Pchar(listbox1.Items.Strings[Listbox1.Itemindex]), ListView1, Imagelist1);
 end;

...

viewstyle:= vsReport;

[Alegun]

У меня точно такой же код как и вас, в этой сборке грузятся имена и пути к файлам в ListView, а в Listbox лишь пути, двух колонок нету

[valvl63]

Да, именно эту процедуру хочу использовать.
Надо, чтоб все файлы, которые находятся в листбоксе автоматически
загрузились в листвью без опендиалога.

[Alegun]

Можно так, но без иконок

Код:

var
 ListItem: TListItem;
 i: integer;
begin
  ListView1.Items.BeginUpdate;
  for i:= 0 to ListBox1.Items.Count -1 do
  begin
  ListItem := ListView1.Items.Add;
  ListItem.Caption:=ExtractFileName(ListBox1.Items.Strings[i]);
  ListItem.SubItems.Add(ListBox1.Items.Strings[i]);
  end;
  ListView1.Items.EndUpdate;
end;

если нужны иконки, то берите их как в функции LV_InsertFiles т.е. используйте FileInfo, код такой же как и там

[valvl63]

Всё, получилось.

Код:

ListView1.SmallImages:= ImageList1;
  for i := 0 to Listbox1.Items.Count - 1 do
  LV_InsertFiles(listbox1.Items.Strings[i], ListView1, Imagelist1);