|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
поиск файлов по нескольким маскам
привет
нашел код который может реализовать мою задумку Код:
uses StrUtils, Types, Masks, IOUtils; function MyGetFiles(const Path, Masks: string): TStringDynArray; var MaskArray: TStringDynArray; Predicate: TDirectory.TFilterPredicate; begin MaskArray := SplitString(Masks, ';'); Predicate := function(const Path: string; const SearchRec: TSearchRec): Boolean var Mask: string; begin for Mask in MaskArray do if MatchesMask(SearchRec.Name, Mask) then exit(True); exit(False); end; Result := TDirectory.GetFiles(Path, Predicate); end; помогите |
#2
|
||||
|
||||
Очевидно, передать аргументом Masks все маски с разделителем точка с запятой ";"
Код:
SearchResult := MyGetFiles('c:\windows\', '*.dll;*.exe;*.ini') Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. |
#3
|
|||
|
|||
Цитата:
Код:
procedure TForm1.Button1Click(Sender: TObject); begin SearchResult := MyGetFiles('c:\windows\', '*.dll;*.exe;*.ini') end; [dcc32 Error] Unit1.pas(48): E2003 Undeclared identifier: 'SearchResult' |
#4
|
||||
|
||||
А объявлять переменные я за Вас буду?
Вам же понерусски сказано "Необъявленный идентификатор: Searchesult" Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. |
#5
|
|||
|
|||
Цитата:
какого типа переменную нужно прописать ? |
#6
|
||||
|
||||
Что за тип возвращает MyGetFiles, тот и объявляется
Код:
var SearchResult: TStringDynArray; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |