Форум: "Основная";
Текущий архив: 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.038 c