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]

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

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

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