| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите сделать поиск в RichEdit! [D6]
zac © (2004-06-15 06:24:00)Нужно организовать поиск слова в RichEdit. Т.е. задается набор символов, например, в Edit, нажимается кнопка и ищется этот набор в RichEdit (в котором загружен большой текст). Если слово найдено, то оно выделяется. Короче, обычная система поиска.
Пытаюсь сделать это так:
С помощью Richedit.FindText ищу слово (получаю позицию), потом через Richedit.SelStart и Rhedit.SelLength выделяю его. Проблема в том, что текста много и если слово где-то внизу, то автоматической прокрутки до него не происходит... :о(
Как это побороть? Или может есть более удачный способ поиска?
zac (2004-06-15 13:46:00) [1]ZEE (15.06.04 11:07), У меня он с русским текстом нормально работает. Но все равно, когда он находит и выделяет слово, то он не прокручивает текст до него. Поэтому если слово где-то внизу по тексту, то не видно, что оно найдено и выделено.
ZEE (2004-06-15 11:07:00) [2]а что Richedit.FindText с русским текстом работает нормально?
я делал так:
var i,ss:integer;
s:string;
...
i:=RichEdit1.SelStart+1;
s:=RichEdit1.Text;
// для того чтобы искать следуещее такое же слово
// начинаем искать со следующей позиции
// после выделенной
delete(s,1,i);
if pos(AnsiUpperCase(Edit1.Text),AnsiUpperCase(s))>0 then
begin
ss:=pos(AnsiUpperCase(Edit1.Text),AnsiUpperCase(s))+i-1;
RichEdit1.SelStart:=s;
RichEdit1.SelLength:=length(Edit1.Text);
end;
| |
