Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Проверка в общем списке файлов файлов с расширением *.mod [D6, Win2k]

diabolik_krsk © (2005-03-09 12:42:00)
Мастера. Следующая проблемка.

В приложении запущен поток на проверку определнной директории на предмет изменения там файлов (добавление, удаление и т.д.).
Как отловить событие это разобрался.

Нужно при изменении файлов проверить в общем списке файлов есть ли файлы с расширением *.mod и если есть занести их в Tlist.

Подскажите как или где почитать... (просьба гнилыми помидорами не кидаться).

diabolik_krsk (2005-03-09 13:45:00) [1]
2markers Огромное спасибо. То что нужно!

markers (2005-03-09 13:37:00) [2]
Кусок из реально рабоитающей программы
if FindFirst(ExtractFileDir(Application.ExeName)+'\Data\'+'*.cop', faAnyFile, SearchRec) = 0 then begin repeat Application.ProcessMessages; if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then begin ReportFile.Add(SearchRec.Name); end; until FindNext(SearchRec) <> 0; FindClose(SearchRec); end;
Где SearchRec это SearchRec:TSearchRec; в Var
Объясняю: Ищем любые файлы в подпапке программы дата с расширением "cop" если такие имеються добавляем ЫекштпДшые

Zeqfreed (2005-03-09 13:22:00) [3]
diabolik_krsk (09.03.05 13:09) [3]
Если честно, из [0] я ничего не понял. Что из себя представляет "общий список", с каким событием ты разобрался?

diabolik_krsk (2005-03-09 13:09:00) [4]
Со структурой if ... then это даже без вопросов.
FindFirst и FindNext где то в исходных VCL то же видел (там даже компонент есть FileList на странице WIN 3.1). Проблема в том, что реализовать это, во всяком случае для меня, не так то просто.
Мне поподробнее изложите, если можно. А можно и ссылочкой на статью бросить!!

markers (2005-03-09 12:45:00) [5]
FindFirst
FindNext

Reindeer Moss Eater (2005-03-09 12:44:00) [6]
if ..... then TList.Add(...)

Наверх

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