Текущий архив: 2003.07.07;
Скачать: 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 вся ветка
Текущий архив: 2003.07.07;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.006 c
