用delphi7编了个小程序,想在edit框中判断是否包含某个值,有没有类似SQL中like的关键字?或者函数也可以

解决方案 »

  1.   

    有啊,可以看万一的博客。上面有这方面的内容。另外,LZ可以在StrUtils、SysUtils中找一下,自己写函数也行。
      

  2.   

    uses
      Masks;MatchesMask('123456','123*');
      

  3.   

    pos函数可以用于判断edit框中是否包含某个字符串。
      

  4.   

    用Pos就可以,代码如下:procedure TForm1.Button3Click(Sender: TObject);
    var str:string;
    begin
      str:='中国';
      Edit1.Text:='伟大的中国人民';  if Pos(str,Edit1.Text)>0 then
        ShowMessage('包含')
      else
        ShowMessage('不包含');
    end;
      

  5.   

    我记起来了,万一的博客上专门讲了一下Masks这个单元几个不错的函数,LZ可以考察一下。
      

  6.   

    学习了,原来还真没用过这个函数。
    LZ可以参考下:
    http://www.cnblogs.com/del/archive/2007/12/11/990949.html
      

  7.   

    MatchesMask新学到一种方法了
    以前都是用pos
      

  8.   

    use StrUtilsfunction AnsiStartsText(const ASubText, AText: string): Boolean;返回字符串AText是否以子串ASubText开头
      

  9.   

    这个方法是可行的,我测试过了
    环境如下:
    winxpsp3+delphi7
      

  10.   

    pos或posex,都是检测是否包含子串的