在TMemo里如何查特定的字符串？

Question

在TMemo里有什么办法像TRichEdit里那样查找字符串，用什么API好呢？我想strpos()不好吧！

Answer 1

它是一个TSTRINGS，你自己操作一下把，它转换成字符串，就可以啦

Answer 2

读出一个个字串，再用pos函数

Answer 3

var
  S:String;
  Loop:Integer;
begin
  for Loop := 0 to Memo.Lines.count - 1 do
    S := S + Memo.lines.String[Loop];
end;
然后就可以对S用POS函数了，比如：pos('My',S)
if pos('My',S) >0 then
  Showmessage('存在')
else
  Showmessage('不存在')