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

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

Процедура поиска. Помогите. [D6]

Rediska ©   (2004-06-17 09:17:00) 

Здравтвуйте. Помогите пожалуйста с процедурой поиска. Если можно несколько вариантов. Так как у меня проблема заключается в том, что когда моя процедура находит нужные файлы в каталоге то его после этого нельзя удалить, пока не закроется программа.
Вот какой процедурой я пользуюсь:

procedure TForm1.Find;
var
  SearchRec: TSearchRec; // информация о файде или каталоге
begin
  GetDir(0,cDir); // получить имя текущего каталога
  if cDir[length(cDir)] <> '\' then cDir := cDir+'\';

  if FindFirst(FileName, faArchive,SearchRec) = 0 then
      repeat
         if (SearchRec.Attr and faAnyFile) = SearchRec.Attr  then
            begin
                 ListBox3.Items.Add(SearchRec.Name);
                 n := n + 1;
       end;
       until FindNext(SearchRec) <> 0;
end;

---

MetalFan   (2004-06-17 12:15:00) [1]

> FindClose нужен

была такая же ерунда! сколько шолову ломал из-за невнимательности!!!

---

Sandman25   (2004-06-17 09:22:00) [2]

FindClose нужен

---

Наверх