Вопрос № 172863: Здраствуйте уважаемые эксперты. Пишу на Borland Delphi 7. Не удается коректно организовать поиск в Richedit1. Делал по образцу, который представлен на многих сайтах - ничего не вышло. Коректировать как не пробовал тоже ничего. Пожалуйста помогите. Сс...
Вопрос № 172863:
Здраствуйте уважаемые эксперты. Пишу на Borland Delphi 7. Не удается коректно организовать поиск в Richedit1. Делал по образцу, который представлен на многих сайтах - ничего не вышло. Коректировать как не пробовал тоже ничего. Пожалуйста помогите. Ссылку на файл проекта разместил в приложении. Заранее благодарен.
Отвечает Евгений/Genia007/, Студент :
Здравствуйте, Dimon4ik. Вот посмотрите эту функцию, возможно она Вас устроит.
Код:
function SearchForRichEdit(RichEdit: TRichEdit; SearchText: string): Boolean; var StartPos, Position, Endpos: Integer; begin StartPos := 0; with RichEdit do begin Endpos
:= Length(RichEdit.Text); Lines.BeginUpdate; while FindText(SearchText, StartPos, Endpos, [stMatchCase])<>-1 do begin Endpos := Length(RichEdit.Text) - startpos; Position := FindText(SearchText, StartPos, Endpos, [stMatchCase]); Inc(StartPos, Length(SearchText)); SetFocus; SelStart := Position; SelLength := Length(SearchText); end; Lines.EndUpdate; end;
end;
procedure TForm1.Button5Click(Sender: TObject); var s: String; begin s:= InputBox('поиск', 'введите слово для поиска', ''); SearchForRichEdit(RichEdit1, s); end;
----- Помогли тебе, помоги и ты.
Ответ отправил: Евгений/Genia007/, Студент
Ответ отправлен: 04.10.2009, 14:16
Оценка ответа: 5 Комментарий к оценке: Не то что я хотел но все равно очень помогло. Спасибо.
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 254983
на номер 1151 (Россия) |
Еще номера »
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.