Скачать: CL | DM;

FindFirst, FindNext   Найти похожие ветки 

← →
Sliski Slimak   (2003-04-23 16:34) [0]

Привет всем!

что это такое, может кто объяснит..

в папке 2 текстовых файла.....

if FindFirst ("папка\*.*,s")=0 then
begin
Memo1.lines.add (s.name);
while FindNext (s)=0 do
begin
Memo1.lines.add (s.name);
end;
end;

и вижу в Мемо такой текст

.
..
1.тхт
2.тхт

что это за точки?

---

← →
panov ©   (2003-04-23 16:36) [1]

Основы ОС надо знать.

. - фиктивныя ссылка, указывающая на текущий каталог
.. - фиктивныя ссылка, указывающая на каталог уровнем выше

---

← →
MortalScorpion   (2003-04-23 16:36) [2]

Одна точка - это твой каталог
Две точки - это предыдущий каталог

---

← →
Proton ©   (2003-04-23 19:41) [3]

Позволю себе наглость неколко модифицировать ваш пример


sr := FindFirst ("папка\*.*",s);
while sr = 0 do
begin
Memo1.lines.add(s.name);
sr := FindNext (s);
end;


---

← →
Song ©   (2003-04-23 19:49) [4]

FindClose() забыли

---

← →
Sliski Slimak   (2003-04-24 04:50) [5]

Спасибо....
Будем знать основы ОС ;)

---

← →
Palladin ©   (2003-04-24 10:34) [6]

что бы знать основы ОС
начинай ты лучьше с DOS

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c