Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.03.20;
Скачать: [xml.tar.bz2];

Вниз

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

 
diabolik_krsk   (2005-03-09 12:42) [0]

Мастера. Следующая проблемка.

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

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

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


 
Reindeer Moss Eater ©   (2005-03-09 12:44) [1]

if ..... then TList.Add(...)


 
markers ©   (2005-03-09 12:45) [2]

FindFirst
FindNext


 
diabolik_krsk   (2005-03-09 13:09) [3]

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


 
Zeqfreed ©   (2005-03-09 13:22) [4]

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


 
markers ©   (2005-03-09 13:37) [5]

Кусок из реально рабоитающей программы
  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" если такие имеються добавляем ЫекштпДшые


 
diabolik_krsk   (2005-03-09 13:45) [6]

2markers Огромное спасибо. То что нужно!



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

Форум: "Основная";
Текущий архив: 2005.03.20;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.048 c
4-1107329395
Neznaika
2005-02-02 10:29
2005.03.20
Сворачивание на панели задач


1-1109835699
salexn
2005-03-03 10:41
2005.03.20
Совместимость Clipboard и русских букв


14-1109675305
Layner
2005-03-01 14:08
2005.03.20
А можно ли сделать так, при закрытии Delphi7, она помнила


3-1108558796
DimonNew
2005-02-16 15:59
2005.03.20
DBGrid &amp; ButtonStyle


3-1108991436
Вудупипл
2005-02-21 16:10
2005.03.20
Grid с картинками в сетке





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский