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

Как граммотно вывести список файлов?   Найти похожие ветки 

← →
Elfebet ©   (2006-07-05 19:54) [0]

полистал интернет.. увидел там много вариантов чтения директории..
ну всетаки мне нужен один грамонтный вариант вывода (на пример в комбобокс)  списка файлов из определенной директории.
в смысле вывести список файлов (в виде текста) без всяких наворотов (иконки, размер и т.п.)

---

← →
umbra ©   (2006-07-05 19:56) [1]

см. справку по функциям FindFirst, FindNext, FindClose

---

← →
Мефисто   (2006-07-05 20:44) [2]

> полистал интернет.. увидел там много вариантов чтения директории.
> .


И что, по каким критериям было определено, что множество примеров в ести не "грамотный" вариант?

---

← →
koha ©   (2006-07-05 20:49) [3]

Поптобу самый простой метод:
В примере текущая дирректория для проги.

procedure TForm1.FormCreate(Sender: TObject);
Var ListFiles: TString;
begin

 CurPath:=ExtractFilePath(Application.ExeName); // текущая директория, можно любую другую.

 mask:=CurPath+"*.*"; // маска для поиска.

 ListFiles:=TStringList.Create;

 if FindFirst(Mask,FaAnyFile,SR)= 0 then
   Repeat
      ListBox1.Items.Add(CurPath+SR.Name) //Список на форме визуальный      
      ListFiles.Add(CurPath+SR.Name);     //Список не визуальный для файлов
   Until FindNext(SR)<>0;
  FindClose(SR);
  //Затем можно передать не визуальный список в визуальные компоненты.
  ListBox2.Items.AddStrings(ListFiles);
  Memo1.Lines.AddStrings(ListFiles);

---

← →
koha ©   (2006-07-05 20:54) [4]

> Поптобу самый простой метод:

Забыл про некоторые переменные, а с остальными наверное понятно.

//............................
Var  
 CurPath, Mask: String;
 SR: TSearchRec;
//................................

---

← →
PSPF2003 ©   (2006-07-05 20:56) [5]

Хоть бы один сказал, что его устроит НЕ самый грамотный вариант.

---

← →
begin...end ©   (2006-07-05 21:02) [6]

> Elfebet ©   (05.07.06 19:54) [0]

> ну всетаки мне нужен один грамонтный вариант вывода (на
> пример в комбобокс)  списка файлов из определенной директории.

SendMessage(ComboBox.Handle,
           CB_DIR, DDL_ARCHIVE or DDL_HIDDEN or DDL_READONLY or DDL_SYSTEM,
           LParam(PChar("C:\*")))

---

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

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



Память: 0.46 MB
Время: 0.027 c