Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.31;
Скачать: CL | DM;

Вниз

Проблема с кириллицей при поиске.   Найти похожие ветки 

 
DDDsa ©   (2005-07-11 00:51) [0]

У меня ужасная проблема.
Мне нужно в тексте (RichEdit) найти и выделить, к примеру, слово. Но это слово находится в Edit1"е. Но почему-то кот типа

var
 FoundAt: LongInt;
 StartPos, ToEnd: Integer;
begin
 with richedit1 do
 begin
   if SelLength <> 0 then
     StartPos := SelStart + SelLength
   else
     StartPos := 0;
   ToEnd := Length(Text) - StartPos;

   FoundAt := FindText(Edit1.Text, StartPos, ToEnd, []);

   if FoundAt <> -1 then
   begin
     SetFocus;
     SelStart := FoundAt;
     SelLength := Length(Edit3.text);
   end;
 end;
end;


Работает только если в этот самый Edit1 вводить текст вручную, то есть если создать кнопку, которая присваивала бы Edit1"у текст, то поиск этого текста в RichEdit"e не даст результатов, Делфи не может его найти. Если же ввести в Edit1 слово вручную, то слово найдется. Но мне нужно именно чтобы текст присваивался.

Надеюсь, я понятно объяснил, а то знаю себя :(  ;)


 
DDDsa ©   (2005-07-11 20:59) [1]

Вопрос снят я нашел, как это обойти



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

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

Наверх




Память: 0.46 MB
Время: 0.026 c
14-1120707744
X9
2005-07-07 07:42
2005.07.31
Бесплатный домен 2-го уровня


1-1121252624
AKiM
2005-07-13 15:03
2005.07.31
DateTimePicker


14-1121084907
oldman
2005-07-11 16:28
2005.07.31
Встреча в Нижнем Новгороде.


1-1120919808
Igor_thief
2005-07-09 18:36
2005.07.31
Как изменить ширину полосы прокрутки в ListBox?


14-1121147519
Керк
2005-07-12 09:51
2005.07.31
Посоветуйте две ссылки. Электронные. Можно больше.