摘要：
uses Masksprocedure TTestMatchesMask.TestMatchesMaskFunc;var S: string;begin S := 'http://www.zhangsk.cn'; Check(MatchesMask(S,'http://*'), 'Error at: ); Check(MatchesMask(s,'HTTP://*.cn'), 'Error at: ); Check(MatchesMask(s,'*.cn'), 'Error at: ); Check(Mat 阅读全文
