Цитата:
|
Сообщение от Страдалецъ
Немного не так. FindFirst так можно использовать только если имя файла уникально в каталоге, а вот когда речь идет о поисковой маске, то уже использовать надо FindNext. Почитайте литературу, как правильно пользоваться этими функциями.
|
Да имя файла уникально просто я дал кусок кода, дальше когда программа находит фаилик она переносит его в папку дня и каталог не содержит папок с расширением doc,xls,txt... я сделал так как ты сказал:
Код:
ArrExt := VarArrayOf(['txt','dbf','xls','877']);
for i := 0 to VarArrayHighBound(ArrExt,1)
do begin
Path := Format('%s*.%s',[edit1.text,ArrExt[i]]);
Attr := faReadOnly + faArchive;
FindFirst(Path, Attr, F);
end;
Добавив end в нужное место теперь все замечательно работает спасибо....