Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

[Решено][Код] Выполнить поиск в Memo

43K
23 мая 2010 года
Yokka
14 / / 23.05.2010
У меня есть большой текст в мемо который нужно прокручевать с помощью скрола. Мне надо организовать поиск в мемо по ключевым словам которые я ввожу с Едит. Как сделать поиск чтобы при нахождение нужного слова или фрагмента слова показывалось то место где находиться это слово или фрагмент (все как в ворде или пдф).
1
23 мая 2010 года
kot_
7.3K / / 20.01.2000
Код:
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();
}
//---------------------------------------------------------------------------

как организовать поиск далее - остается тебе для самостоятельных размышлений.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог