Текущий архив: 2007.04.01;
Скачать: CL | DM;

Вниз

Алгоритм поиска   Найти похожие ветки 

← →
Nec   (2007-03-13 11:17) [0]

ДОБРОГО ВРЕМЕНИ СУТОК МНОГОУВАЖАЕМЫЕ МАСТЕРА!!
У меня к вам есть маленкий вопрос:
Для нахожднеия текста в RichEdit я использую следующий алголритм.
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with RichEdit1 do
begin

if SelLength <> 0 then
StartPos := SelStart + SelLength
else
StartPos := SelStart;
//StartPos := SelStart; //!!!

ToEnd := Length(Text) - StartPos;
FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
if FoundAt <> -1 then
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(FindDialog1.FindText);
end;
end;
end;
Но этот алгоритм выделяет найденое но не переводит курсор нему!

---

← →
Сергей М. ©   (2007-03-13 11:37) [1]

> не переводит курсор


Позиционирование курсора никак не связано с упомянутым тобой поиском и выделением, это иной алгоритм, потому и "не переводит".

---

← →
Nec   (2007-03-13 11:44) [2]

Я имел в виду, что этот код выделяет найденный мною текст, но если если он находиться вне зоны видимости, то он не перемещяется к той строке на которой находиться

---

← →
Сергей М. ©   (2007-03-13 11:44) [3]

http://delphi-faq.zoxt.net/a50.htm

---

← →
Ксандр   (2007-03-13 11:46) [4]

Удалено модератором

---

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

Текущий архив: 2007.04.01;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.027 c