|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Поиск файлов и TMask
Такая проблема: необходимо осуществлять поиск файлов по нескольким маскам. Реализовал следующее:
Есть массив MaskList: array of TMask устанавливаю его размер согласно списка масок SetLength(MaskList,MCount); Заполняю значениями масок из списка Код:
for i:=0 to fmOption.lbMasks.Items.Count-1 do if fmOption.lbMasks.Checked[i] then begin MaskList[MCount]:=TMask.Create(fmOption.lbMasks.Items.Strings[i]); Inc(MCount); end;//if end; Код:
function TfmMain.InExcept(FName:String):Boolean; var i:integer; begin result:=false; for i:=0 to High(MaskList) do if MaskList[i].Matches(FName) then Result:=True; end; P.S. Delphi 7 |