Текущий архив: 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
