Организация цикла

← →
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;

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