Алгоритм поиска

← →
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]

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

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