delphi 有没有 like 比较运算符,没有如何实现 like 功能??

Question

  delphi 有没有 like 比较运算符,没有如何实现 like 功能??  如:
       a := 'aa' ;
       b := 'aaa' ;       if a like b then
       showmessage('a like b = true');

Answer 1

在字符串b中查找子串aif (pos(a , b)>0) then
       showmessage('a like b = true');

Answer 2

x like '%a%';当x中含有a字串时为true

Answer 3

  感谢大家的回复;  do2008
  的方法不支持?? 通配符号. 我要的的 like 的功能! ?? % 都支持  oygs726() 
  好象编译不过。