Ну в общем-то этот раздел по алгоритмам. А язык неважен, так что "до ума" доводить не буду:| Цитата |
Вот функция, скорее всего не работает, но алгоритм примерно такой. Функция возвращает истину в случае если строка s подходит мод маску m: function Is(s, m: string): Boolean; var l, i, j, cs, cm: Integer; begin cs := 0; cm:=cs; l := Length(s) for i:=1 to l do begin j := l; case m[cm] of '*' : while(j>cs and s[j]!=m[cm+1]) do j:=j-1; if cs=j then return False; cs:=cs+(l-j); '?' : if cs<l then cs:=cs+1 else return False; else if m[cm]==s[cs] then cs:=cs+1 else return False; end; cm:=cm+1; if (cs=l) return True; end; return False; end; |