Главная страница
    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.008 c
1-20987
zsv
2002-09-20 06:44
2002.10.07
Как напечатать StringGrid?


1-21033
Спутник
2002-09-27 10:51
2002.10.07
SizeOf


1-21080
Metotrone
2002-09-24 17:56
2002.10.07
PChar


1-21138
IronHawk
2002-09-24 14:22
2002.10.07
Приветствую Мастеров !!! Всё о передаче потока по сети ...


6-21173
Alex90210
2002-08-07 14:41
2002.10.07
TServerClientWinSocket





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский