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

← →
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;
//................................

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

> 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:\*")))

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