Скачать: CL | DM;

Список файлов в каталоге   Найти похожие ветки 

← →
MsGuns ©   (2002-09-24 21:53) [0]

Торможу аж стыдно, но ЗАБЫЛ!!!!
Пересмотрел весь хелп по ф-циям и не нашел !
Но ведь есть же простая ф-я выдачи списка всех файлов в указанном каталоге (даже с фильтром), но вылетело :(
Подскажите будьте добры ! Заранее благодарен !

---

← →
MsGuns ©   (2002-09-24 21:58) [1]

Ребят, надо срочно ! Пожалуйста !

---

← →
Kibitzer ©   (2002-09-24 22:13) [2]

Примерно так:
var
sr: TSearchRec;
i: Integer;
...
i := FindFirst("c:\arc\*.exe", faAnyFile, sr);
while i <> NO_ERROR do
begin
ShowMessage("Найден файл: " + sr.Name);
i := FindNext(sr);
end;
FindClose(sr);

---

← →
Kibitzer ©   (2002-09-24 22:16) [3]

Прошу прощения. Поправочка:

while i = NO_ERROR do

---

← →
MsGuns ©   (2002-09-24 23:34) [4]

FindFirst я знаю. Но есть другая проца, которая все джелает за раз !

---

← →
Begin ©   (2002-09-25 00:36) [5]

а по моему, нету такой.... только Find"aми

---

← →
Suntechnic ©   (2002-09-25 05:45) [6]

Ф-ции такой нет, но если речь идёт о том, что надо заполнить некий ListBox или ComboBox, тогда это можно сделать абсолютно не напрягаясь. См. сообщения CB_DIR и LB_DIR

---

← →
ShaggyDoc ©   (2002-09-25 08:07) [7]

Детский прием - положи FileListBox и используй его данные. Если сам FileListBox не нужен, сделай его невидимым.

Хочешь "изящно", но правильно - см. как он это делает.

---

← →
Alx2 ©   (2002-09-25 08:13) [8]

посмотри на http://delphibase.endimus.com/
кто-то что-то готовое уже выложил

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c