Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как граммотно вывести список файлов? [D7, WinXP]

Elfebet © (2006-07-05 19:54:00)
полистал интернет.. увидел там много вариантов чтения директории..
ну всетаки мне нужен один грамонтный вариант вывода (на пример в комбобокс) списка файлов из определенной директории.
в смысле вывести список файлов (в виде текста) без всяких наворотов (иконки, размер и т.п.)

begin...end (2006-07-05 21:02:00) [1]
> 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:\*')))

PSPF2003 (2006-07-05 20:56:00) [2]
Хоть бы один сказал, что его устроит НЕ самый грамотный вариант.

koha (2006-07-05 20:54:00) [3]
> Поптобу самый простой метод:

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

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

koha (2006-07-05 20:49:00) [4]
Поптобу самый простой метод:
В примере текущая дирректория для проги.

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);

Мефисто (2006-07-05 20:44:00) [5]

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

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

umbra (2006-07-05 19:56:00) [6]
см. справку по функциям FindFirst, FindNext, FindClose

Наверх

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