void __fastcall TForm1::FindDialog1Find(TObject *Sender)
{
int SelPos = Memo1->Lines->Text.Pos(FindDialog1->FindText);
if (SelPos > 0)
{
Memo1->SetFocus();
Memo1->SelStart = SelPos - 1;
Memo1->SelLength = FindDialog1->FindText.Length();
}
else
MessageBeep(0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
FindDialog1->Execute();
}
//---------------------------------------------------------------------------
[Решено][Код] Выполнить поиск в Memo
У меня есть большой текст в мемо который нужно прокручевать с помощью скрола. Мне надо организовать поиск в мемо по ключевым словам которые я ввожу с Едит. Как сделать поиск чтобы при нахождение нужного слова или фрагмента слова показывалось то место где находиться это слово или фрагмент (все как в ворде или пдф).
Код:
как организовать поиск далее - остается тебе для самостоятельных размышлений.