как правильно организовать поиск файла в делфи?
просто поиск получается, но находит макс.2 файла с похожими именами (напр.: Текст0.txt и Текст1.txt, а Текст2.txt не ищет...)
|
как правильно организовать поиск файла в делфи?
просто поиск получается, но находит макс.2 файла с похожими именами (напр.: Текст0.txt и Текст1.txt, а Текст2.txt не ищет...)
я, дуралей уже разобрался... извините, закрывайте тему.
Я когдато писал ф-цию для поиска *.dll:
Вызов:
FindDlls(ExtractFilePath(Application.ExeName)+'dll s\');
Сама ф-ция:
procedure TMTMainFm.FindDlls(InDir: String);
var
Sch : TSearchRec;
begin
try
if FindFirst(InDir+'*.dll',$01,Sch) = 0 then
begin
LoadPlug(InDir + Sch.Name,CountMi);
while FindNext(Sch) = 0 do begin
LoadPlug(InDir + Sch.Name,CountMi);
end;
end;
finally
FindClose(Sch);
end;
end;
Но это не рекурсивный поиск, а простой поиск в определенной дериктории.
При необходимости могу выложить и поиск рекурсивный, что полностью сканирует из указанного места до дериктории самого нижнего уровня.
Наш выбор - Хеви Мэтал,
И наша сила в этом!
Социальные закладки