Помогите сделать поиск в RichEdit!

← →
zac (2004-06-15 06:24) [0]

Нужно организовать поиск слова в RichEdit. Т.е. задается набор символов, например, в Edit, нажимается кнопка и ищется этот набор в RichEdit (в котором загружен большой текст). Если слово найдено, то оно выделяется. Короче, обычная система поиска.
Пытаюсь сделать это так:
С помощью Richedit.FindText ищу слово (получаю позицию), потом через Richedit.SelStart и Rhedit.SelLength выделяю его. Проблема в том, что текста много и если слово где-то внизу, то автоматической прокрутки до него не происходит... :о(
Как это побороть? Или может есть более удачный способ поиска?

← →
ZEE (2004-06-15 11:07) [1]

а что 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;

← →
zac (2004-06-15 13:46) [2]

ZEE (15.06.04 11:07), У меня он с русским текстом нормально работает. Но все равно, когда он находит и выделяет слово, то он не прокручивает текст до него. Поэтому если слово где-то внизу по тексту, то не видно, что оно найдено и выделено.

Помогите сделать поиск в RichEdit! Найти похожие ветки