Текущий архив: 2005.07.25;
Скачать: CL | DM;

Вниз

Организация цикла   Найти похожие ветки 

← →
max3   (2005-07-06 09:54) [0]

Подскажите плиз. Как организовать цикл по всем файлам в указанной мной папке, имеющих расширение *.txt.
Спасибо.

---

← →
evvcom ©   (2005-07-06 10:01) [1]

FindFirst, FindNext

---

← →
Катерина   (2005-07-06 10:13) [2]

uses SysUtils;
var s :  tsearchrec; code : integer;
begin
 code := findFirst("*.txt",faAnyFile,s);
 while code = 0 do
 begin
   <...s.name...>;
   code := findNext(s);
 end;
end;

---

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

Текущий архив: 2005.07.25;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.01 c