| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Организация цикла [D7, WinXP]
max3 © (2005-07-06 09:54:00)Подскажите плиз. Как организовать цикл по всем файлам в указанной мной папке, имеющих расширение *.txt.
Спасибо.
Катерина (2005-07-06 10:13:00) [1]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;
evvcom (2005-07-06 10:01:00) [2]FindFirst, FindNext
| |
