список файлов

[DeDoK]

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

[vovk]

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]

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

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

[vovk]

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

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

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

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

[Stilet]

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

Пользуй TFileListBox [FileCtrl]