如判断变量ZCDM中是否包含"注册"2字.

解决方案 »

  1.   

    用pos()函数,具体看帮助!
    有问题请发信息到我的E-mail:[email protected]
      

  2.   

    答错了
    procedure TForm1.Button1Click(Sender TObject);
    var
      Location: PChar;
    begin
      if StrPos(PChar(Edit1.Text), PChar(Edit2.Text)) <> nil 
    then
        ShowMessage('Substring found')
      else
        ShowMessage('Substring not found');
    end;
      

  3.   

    if pos('指定字符串',字符串)>0 Then
      showmessage('有')
    else 
      showmessage('没有');
      

  4.   

    同意 darkhorsedba(老牛) !
      

  5.   

    已经试验成功,推荐darkhorsedba(老牛)的做法