memo中查找字符串用什么函数？

RichText中查找字符串可用FindText()，但是这个函数在Memo中就不能用了，
请教，(我在MEMO中用了FindText()函数提示未声明。)
应该用什么函数？
在此谢了先!

解决方案 »

  1.   

    用Action， 一句代码都不用写
      

  2.   

    调用finddialog对话框vcl，这样就可以查找Memo中的相应字符串了。
      

  3.   

    用Pos('我要找的字符串',Memo1.Lines.Text)
      

  4.   

    TO：elilor(elilor)
    大侠不要说一半留一半嘛。可否讲详细一些？TO：sunware()
    我这样写代码:
    ......
    procedure Tediter.MMFindClick(Sender: TObject);
    begin
      if (memo1.SelLength >0) and (memo1.SelLength <30) then
        FindDialog1.FindText :=memo1.SelText
      else
        finddialog1.FindText :='';
      finddialog1.Execute;
    end;{procedure Tediter.FindDialog1Find(Sender: TObject);
    begin
      memo1.selstart:=pos(FindDialog1.findtext,memo1.lines.text);
      memo1.sellength:=length(FindDialog1.findtext);  //在些处设置了断点
    end; 
    ......
    可是断点处代码好像没有被运行。
    请问是何故？
      

  5.   

    你写的没有问题,我也是这样做的,运行一直很好.
    不过你可能还要加上"向上搜索","向下搜索","区别大小写"等等内容.
    我用的是Delphi3 C/S + Win2000
      

  6.   

    我用的是Delphi7.0 + WinXP
    这跟系统有关系吗？
      

  7.   

    给你个例子：http://218.56.11.178:8020/web/index.aspx-》软件基地-》DELPHI源码-》基础应用-》在memo中进行向上向下查找