Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Вниз
Содержимое каталога Найти похожие ветки
← →
RH © (2004-04-16 12:25) [0]Как вывести спмсок содержимое каталога? Нужно чтобы выводилось и файлы и подкаталоги?
← →
Sun bittern © (2004-04-16 12:26) [1]FAQ
← →
Smithson © (2004-04-16 12:27) [2]FindFirst, FindNext +F1
← →
ZDDR © (2004-04-16 12:39) [3]
procedure getdir(dir:string;list:tlistbox);
var
sr:tsearchrec;
begin
if findfirst(dir+"\*.*",faanyfile,sr)=0 then
begin
list.Items.Add(sr.Name);
while findnext(SR)=0 DO
list.Items.Add(sr.Name);
END;
end;
//example
procedure TForm1.Button1Click(Sender: TObject);
begin
getdir("c:\windows",listbox1);
end;
← →
Sun bittern © (2004-04-16 12:42) [4]ZDDR © (16.04.04 12:39) [3]
Гы с ошибками
← →
rh © (2004-04-16 12:43) [5]Большое спасибо!
← →
rh © (2004-04-16 12:44) [6]Ну а если и есть ошибки, то сам теперь разберусь)
← →
Тимохов © (2004-04-16 12:56) [7]
> rh © (16.04.04 12:44) [6]
вряд ли
← →
rh © (2004-04-16 13:08) [8]
> Тимохов
кстати ошибок нет - все тип-топ
> ZDDR
еще раз спасибо
← →
Sun bittern © (2004-04-16 13:17) [9]rh © (16.04.04 13:08) [8]
Ошибка не в компиляции, а в другом. Посмотрите реализацию в FAQ
← →
Тимохов © (2004-04-16 13:19) [10]
> rh © (16.04.04 13:08) [8]
>
> > Тимохов
>
> кстати ошибок нет - все тип-топ
Тогда успехов !!!
← →
ZDDR © (2004-04-16 13:30) [11]sorry
procedure getdir(dir:string;list:tlistbox);
var
sr:tsearchrec;
begin
if findfirst(dir+"\*.*",faanyfile,sr)=0 then
begin
list.Items.Add(sr.Name);
while findnext(SR)=0 DO
list.Items.Add(sr.Name);
END;
findclose(sr);
end;
//example
procedure TForm1.Button1Click(Sender: TObject);
begin
getdir("c:\windows",listbox1);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.034 c
