Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.04;
Скачать: CL | DM;

Вниз

Процедура поиска. Помогите.   Найти похожие ветки 

 
Rediska   (2004-06-17 09:17) [0]

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

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;


 
Sandman25 ©   (2004-06-17 09:22) [1]

FindClose нужен


 
MetalFan ©   (2004-06-17 12:15) [2]


> FindClose нужен

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



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

Текущий архив: 2004.07.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.059 c
14-1087064565
Mobias
2004-06-12 22:22
2004.07.04
Проблема с "Кладовой"


1-1087826694
ИМХО
2004-06-21 18:04
2004.07.04
OLE-автоматизация Ворда и закладки


3-1086674379
din
2004-06-08 09:59
2004.07.04
Как выделить вругим цветом


14-1087385368
AlexG
2004-06-16 15:29
2004.07.04
WEB-программисты...


1-1087885076
wild_arg
2004-06-22 10:17
2004.07.04
Поиск решения в многомерном пространстве