Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.009 c
14-21211
Mike B.
2002-09-09 11:12
2002.10.07
---|Ветка была без названия|---


3-20921
DPetrovich
2002-09-17 12:19
2002.10.07
ADOQuery.Filter


14-21253
Николай Быков
2002-09-12 13:04
2002.10.07
Лето и литература


3-20890
cutter-pro
2002-09-16 15:57
2002.10.07
Заставь дурака богу молиться он и лоб себе расшебет


1-21130
начинающий програмер
2002-09-25 20:16
2002.10.07
DLL





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский