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

Вниз

Наверно пора на пенсию...   Найти похожие ветки 

 
Baks   (2002-02-16 14:30) [0]

Хочу выбрать все каталоги из опр. дир-ии,
а в результате получаю только то, что в DirPatch
ЧТО ТУТ НЕ ТАК???

DirPath:= PChar(DirectoryEdit1.Text);
ind:= 0;
if FindFirst(DirectoryEdit1.Text, faDirectory, f) = 0 then begin
repeat
if (f.Attr and faDirectory) = f.Attr then begin
inc(ind);
aStr[ind]:= f.Name;
end;
until FindNext(f) <> 0;
FindClose(f);
end;


 
Набережных С.   (2002-02-16 15:13) [1]

Попробуй так:
if FindFirst("c:\*.*", faDirectory, f) = 0 then begin


P.S.Надеюсь, в aStr достаточно места?


 
MBo   (2002-02-16 15:40) [2]

звезды небось не поставил
if FindFirst("d:\ *.*", faDirectory, f) = 0 then begin
repeat
if (f.Attr and faDirectory) = f.Attr then
memo1.lines.add(f.name);
until FindNext(f) <> 0;
FindClose(f);
end;


 
SerfX   (2002-02-16 15:41) [3]

Пробовал.
Непонятно почему, но FindNext всегда возвращает нечто <> 0
и обхода каталогане происходит...


 
Набережных С.   (2002-02-16 15:50) [4]

А какое "нечто"?


 
Baks   (2002-02-16 17:19) [5]

Вопрос снят. Сейчас попробовал дома на w2k все ок.
Хотя на работе блин три часа над ентой ерундой бился и ни в какую, но там линолеум, но не Find.... должны же поидее шуршать одинакого и там и там. Да, пора на пенсию...
Спасибо всем откликнувшимся.



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

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

Наверх





Память: 0.45 MB
Время: 0.004 c
4-9338
Ted
2002-01-03 10:38
2002.03.04
Alt+f4


1-9231
Shoo
2002-02-15 16:54
2002.03.04
Констант-массив


3-9063
NickBat
2002-02-06 17:42
2002.03.04
Inerbase


1-9210
Serghei
2002-02-15 09:01
2002.03.04
Копирование компонентов!!!


1-9186
BlankAlex
2002-02-11 10:58
2002.03.04
Custom Grid





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