| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Экспорт имен и расширений файлов в listview.??? [D7]

jenya_rus ©   (2006-03-21 02:21:00) 

Привет всем...подскажите как сделать чтоб в listview отображался список файлов, находящихся на диске?

---

Handle   (2006-03-21 12:15:00) [1]

Ncl.Caption:= 'Ñïèñîê ôàéëîâ' = Ncl.Caption:= 'Список Фалов'

---

Handle   (2006-03-21 12:13:00) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  Ncl: TListColumn;
begin
   ListView1.ViewStyle:= vsReport;
   Ncl:=  ListView1.Columns.Add;
   Ncl.Caption:= 'Ñïèñîê ôàéëîâ';
   Ncl.Width:= 150;
  if FindFirst('C:\' + '*.*', faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr faDirectory) then
      begin
        with ListView1.Items.Add do begin
             Caption := SR.Name;
      end;
      end;
    until FindNext(SR) 0;
    FindClose(SR);
  end;
end;

---

clickmaker   (2006-03-21 11:06:00) [3]

FindFirst / FindNext

---

Наверх