2012年3月19日
Delphi: 使用通配符进行字符串比较的函数MatchesMask
摘要： 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 阅读全文
posted @ 2012-03-19 22:03 treemon 阅读(2600) 评论(0) 推荐(0)