Скачать: CL | DM;

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

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

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c