Скачать: CL | DM;

Помогите сделать поиск в 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), У меня он с русским текстом нормально работает. Но все равно, когда он находит и выделяет слово, то он не прокручивает текст до него. Поэтому если слово где-то внизу по тексту, то не видно, что оно найдено и выделено.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c