| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Нужно узнать сколько файлов в каталоге, а потом поочереди открыть [D5, D6, Win95/98, WinME, NT4, Win2k, WinXP]

NeyroSpace ©   (2002-09-17 14:33:00) 

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

---

NeyroSpace   (2002-09-17 14:48:00) [1]

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

---

RV   (2002-09-17 14:46:00) [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;

---

Song   (2002-09-17 14:37:00) [3]

TSearchRec
LB_DIR

---

Наверх