Поиск в "Memo"

<TABLE BORDER=0 ALIGN=CENTER WIDTH=85%><TR><TD>Quote<HR></TD></TR><TR><TD><FONT SIZE=-1><BLOCKQUOTE>
On 2001-08-29 2250, Иван Сусанин wrote
Кто может мне подсказать, код, для простого поиска в &quot;Memo&quot; (по тексту),при нажатии ButtonClick, с помощью FindDialog->........?
Заранее благодарен!

</BLOCKQUOTE></FONT></TD></TR><TR><TD><HR></TD></TR></TABLE>
FIND=что ты ищишь.

for(int n=0; n<Memo1->Lines->Count; n++)
{
if((Memo1->Lines->Text).Pos(FIND)!=0)//нашел.
{
Memo1->SetFocus();
Memo1->SelStart=(Memo1->Lines->Text).Pos(FIND)-1;
Memo1->SelLength=(FIND).Length();
}
}


[ Это Сообщение было отредактировано Boka в 2001-09-07 0904 ]