Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Наверно пора на пенсию...

Baks © (2002-02-16 14:30:00)
Хочу выбрать все каталоги из опр. дир-ии,
а в результате получаю только то, что в 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;

Baks (2002-02-16 17:19:00) [1]
Вопрос снят. Сейчас попробовал дома на w2k все ок.
Хотя на работе блин три часа над ентой ерундой бился и ни в какую, но там линолеум, но не Find.... должны же поидее шуршать одинакого и там и там. Да, пора на пенсию...
Спасибо всем откликнувшимся.

Набережных С. (2002-02-16 15:50:00) [2]
А какое "нечто"?

SerfX (2002-02-16 15:41:00) [3]
Пробовал.
Непонятно почему, но FindNext всегда возвращает нечто <> 0
и обхода каталогане происходит...

MBo (2002-02-16 15:40:00) [4]
звезды небось не поставил
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;

Набережных С. (2002-02-16 15:13:00) [5]
Попробуй так:
if FindFirst("c:\*.*", faDirectory, f) = 0 then begin

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »