Скачать: CL | DM;

Экспорт имен и расширений файлов в listview.???   Найти похожие ветки 

← →
jenya_rus   (2006-03-21 02:21) [0]

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

---

← →
clickmaker ©   (2006-03-21 11:06) [1]

FindFirst / FindNext

---

← →
Handle   (2006-03-21 12:13) [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;

---

← →
Handle   (2006-03-21 12:15) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c