список файлов - Общие вопросы Delphi

DeDoK · 24.06.2009, 09:49

какпрограммно получить список фалов в папке и занести этот список в ListBox?

vovk · 24.06.2009, 10:35

Код:

var F: TSearchRec;
    i: integer;
begin
ListBox1.Items.clear;
i := FindFirst('c:\windows\*.*',faAnyFile,  F);
while i=0 do
 begin
  if  (f.Attr <>faDirectory) then
  ListBox1.Items.Add(F.Name);
  i := FindNext(F)
 end;
FindClose(F);
end;

Greblin · 24.06.2009, 10:50

2vovk Ваш код кроме файлов выдаст ещё кучу всякой лабуды, вроде скрытых папок. Надо так

Код:

if  (f.Attr and faDirectory <> faDirectory) then

vovk · 24.06.2009, 10:56

Цитата:

Сообщение от Greblin

2vovk Ваш код кроме файлов выдаст ещё кучу всякой лабуды, вроде скрытых папок. Надо так

Код:

if  (f.Attr and faDirectory <> faDirectory) then

хмм действительно.. поторопился..

Stilet · 22.07.2009, 09:23

Цитата:

какпрограммно получить список фалов в папке и занести этот список в ListBox?

Пользуй TFileListBox [FileCtrl]

24.06.2009, 09:49	#1
DeDoK Форумчанин Регистрация: 05.11.2007 Сообщений: 392	список файлов какпрограммно получить список фалов в папке и занести этот список в ListBox?

24.06.2009, 10:50	#3
Greblin Меркантильный кю Участник клуба Регистрация: 02.02.2008 Сообщений: 1,001	2vovk Ваш код кроме файлов выдаст ещё кучу всякой лабуды, вроде скрытых папок. Надо так Код: `if (f.Attr and faDirectory <> faDirectory) then` Росли вроде умными, выросли дурнями... (c)А.Васильев

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
BAT - список файлов	gamer123	Помощь студентам	2	05.06.2009 23:34
Список файлов	Ky3Heu,	Общие вопросы Delphi	3	22.05.2009 14:26
Приложение которое выводит список файлов текущего каталога и при клике на любом из файлов откроет его.	LimanSSk	Общие вопросы Delphi	2	18.05.2009 16:03
список файлов	legion-mia	Microsoft Office Excel	3	09.04.2009 16:48
Список открытых файлов	ExcArt	Microsoft Office Excel	3	30.03.2008 11:06