delphi通配符查找函数（单元）的实例

网上只看到有通配符查找，返回boolean值的，为进行补充，单独写了一个通配符查找单元MatchFind，主要的为MatchFindStr(MainStr,SubStr)函数，返回符合条件的通配符的字符。 奇怪的是在winxp下，微软的查找中文使用通配符正确，使用英文通配符查找反而错误，诡异。本函数没这问题，对不符合规范的通配符进行过预处理。 例如：母串“数据手册_WDT-1200E_20120709.docx”，查找通配符子串“W???12*09”，返回值为“WDT-1209”。 子串“WD*”，返回值为“WDT-1200E_20120709.docx”。