Текущий архив: 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.032 c
