| Автор
| Сообщение |
ДОБ
Гость
|
|
|
Цитата |
|
У меня очередной ламерский вопрос как вывести например в ListBox
список находящихся в заданном каталоге файлов и папок.
Если не затруднит оставьте код а не имя функции.
Заранее благададорю. |
|
| В начало |
|
 |
|
|
 |
 Ktf
Администратор
Возраст: 32
Знак зодиака: 
Зарегистрирован: 15.05.2005
Сообщения: 1502
Откуда: localhost
|
|
|
Цитата |
|
| Код: | procedure TForm1.Button1Click(Sender: TObject);
var
f: TSearchRec;
begin
if FindFirst('c:\*.*', faAnyFile, f)=0 then
try
repeat
ListBox1.Items.Add(f.Name);
until FindNext(f) <> 0;
finally
FindClose(f);
end;
end; |
_________________
Пойду посплю перед сном. |
|
| В начало |
|
|
ДОБ
Гость
|
|
|
Цитата |
|
| Спасибо !!!!!!!!!!!!!!!!!! |
|
| В начало |
|
|
|
