Текущий архив: 2003.09.08;
Скачать: CL | DM;
Вниз
Название папки Найти похожие ветки
← →
OlegL © (2003-06-24 14:55) [0]Помогите чаику. Как мне узнать название всех папок из скажем одной папки.
← →
jel © (2003-06-24 14:58) [1]FindFirst
FindNext
FindClose
← →
OlegL © (2003-06-24 15:02) [2]А разве это работает и для папок, мне кажется что только для файлов.
← →
OlegL © (2003-06-24 15:34) [3]Так что, получается не возможно.
← →
jel © (2003-06-25 10:43) [4]
procedure TForm1.Button1Click(Sender: TObject);
var sr : TSearchRec;
begin
if FindFirst("c:\*.*", faDirectory, sr) = 0 then
repeat
( sr.Attr and faDirectory = faDirectory)procedure TForm1.Button1Click(Sender: TObject);
var sr : TSearchRec;
begin
if FindFirst("c:\*.*", faDirectory, sr) = 0 then
repeat
if (sr.Attr and faDirectory = faDirectory) and (sr.Name[1] <> ".") then ListBox1.Items.Add(sr.Name);
until FindNext(sr) <> 0;
FindClose(sr);
end;
← →
Poirot © (2003-06-25 11:28) [5]
> sr.Attr and faDirectory = faDirectory
не уверен. что надо... вполне параметра в FindFirst.
← →
jel © (2003-06-25 12:49) [6]
> Poirot © (25.06.03 11:28)
>
> > sr.Attr and faDirectory = faDirectory
>
> не уверен. что надо... вполне параметра в FindFirst.
Надо - без него в листбоксе еще и файлы. Хотя по идее не должны бы.
Страницы: 1 вся ветка
Текущий архив: 2003.09.08;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.014 c
