Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.054 c
6-1160908176
root
2006-10-15 14:29
2007.04.01
как передать данные


3-1168578488
O.O
2007-01-12 08:08
2007.04.01
Аналоги Round и Trunc в FireBird


2-1173788444
masha179
2007-03-13 15:20
2007.04.01
очистка


2-1173869504
T.V
2007-03-14 13:51
2007.04.01
Вопрос по ф-ции LockFile


2-1173110211
pasha star
2007-03-05 18:56
2007.04.01
RichEdit add lines down