Возможно ли при нажатии на файл в listbox выведется его размер в listView

[илья001]

посоветуй те программа файловый менеджер в два окна в одном каталоги в другой файлы так вот возможно как нибудь реализовать что бы при нажатии в одном окне(listbox1) на файл или каталог в другом(listbox2) выводился их размер и показывался на экране ну к примеру в listView ну или в Tlabel , в общем рад выслушать все ваши идеи куда вывести размер файлов и папок. мысли изложенные на языке OP Delphi приветствуются.(плохо разбираюсь в программировании поэтому кодом предпочтительно, но даже совет будет очень полезен)

[veniside]

листбоксы заменить на TListView, во второй колонке выводить размер, как это сделано в обычном проводнике

Размер файла можно получить, например, через FileSeek(), размер каталога через рекурсивный обход всех файлов и подкаталогов в нём (beware of symlinks!).

[илья001]

[QUOTE=veniside;925609]листбоксы заменить на TListView, во второй колонке выводить размер, как это сделано в обычном проводнике

вот процедура из моего проекта lst_dir- listbox для каталогов

procedure TFormMain.cbb_diskChange(Sender: TObject);
var
  disk: String;
begin
  disk:=cbb_disk.Items[cbb_disk.itemindex];//Установить диск
  lst_file.Items:= GetCatologFile(disk);//Получить список файлов
  lst_dir.Items:=GetCatologDir(disk);//Получить список папок
  temp.Text:=lst_dir.Items.Text;
  temp_file.Text:=lst_file.Items.Text;
  dir_cur:=disk;             
  FormMain.Caption:='Файловый менеджер - '+dir_cur;
end;

собственно пожалуйста расскажите по шагам все мои действия по замене Listbox на listview. если я удалю listbox и вместо него поставлю listview переименую его в lst_dir будут ли работать все. Просто файловый менеджер уже написан полностью вот собственно ищу путь чтобы минимально затронуть переделку кода а в идеале хотелось бы просто добавить что то новое что показывает размер файлов.

[илья001]

[QUOTE=илья001;925709]

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

листбоксы заменить на TListView, во второй колонке выводить размер, как это сделано в обычном проводнике

вот процедура из моего проекта lst_dir- listbox для каталогов

procedure TFormMain.cbb_diskChange(Sender: TObject);
var
  disk: String;
begin
  disk:=cbb_disk.Items[cbb_disk.itemindex];//Установить диск
  lst_file.Items:= GetCatologFile(disk);//Получить список файлов
  lst_dir.Items:=GetCatologDir(disk);//Получить список папок
  temp.Text:=lst_dir.Items.Text;
  temp_file.Text:=lst_file.Items.Text;
  dir_cur:=disk;             
  FormMain.Caption:='Файловый менеджер - '+dir_cur;
end;

procedure TFormMain.btn_rename_fileClick(Sender: TObject);
begin
  //Àíàëîãè÷íî
  if lst_file.ItemIndex<0 then Exit;

  if FormFind.ShowModal=mrOk then
  begin
    if FormFind.edt.Text='' then Exit;
    RenameFile(dir_cur+lst_file.Items[lst_file.ItemIndex],dir_cur+FormFind.edt.Text);
    lst_file.Items:=GetCatologFile(dir_cur);
    temp_file.Text:=lst_file.Items.Text;
  end;
lst_file.Items:=GetCatologFile(dir_cur);//
    temp_file.Text:=lst_file.Items.Text;//
 temp.Text:=lst_dir.Items.Text;
lst_file.Items:= GetCatologFile(disk)

вот как заменить эти строки на litsview