Нужно узнать сколько файлов в каталоге, а потом поочереди открыть

← →
NeyroSpace (2002-09-17 14:33) [0]

(Извиняюсь это уже спрашивали)
Может кто-ниб напомнит?

← →
Song (2002-09-17 14:37) [1]

TSearchRec
LB_DIR

← →
RV (2002-09-17 14:46) [2]

var
path,ss:string;
SerRec:tSearchRec;
begin
memo2.Lines.Clear;
path:="D:\Program Files\WinGate\cache\";
if (findfirst(path+"*.*",faAnyFile,SerRec)=0) then begin
memo2.Lines.Add(SerRec.name);
findnext(SerRec);
while findnext(SerRec)=0 do
if ItHTML(path+SerRec.name) then memo2.Lines.Add(SerRec.name);

end;
end;

← →
NeyroSpace (2002-09-17 14:48) [3]

Мерси дес, что напомнили :-).

Нужно узнать сколько файлов в каталоге, а потом поочереди открыть Найти похожие ветки