Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.04;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
1-9115
Gene Green
2002-02-16 00:23
2002.03.04
DrawGrid, StringGrid etc.


1-9155
sammy
2002-02-07 08:33
2002.03.04
как создать hint


1-9224
cpp
2002-02-15 11:32
2002.03.04
Вопрос к гуру от почти гуру. Доступ к protected методам


3-9057
vopros
2002-02-06 14:00
2002.03.04
Я уже всех достал наверное...но очень надо


3-9089
Vks
2002-02-07 09:36
2002.03.04
Какая редакция Delphi нужна для работы с InterBase или MSSQL?