Главная страница
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.033 c
1-1121033361
Alekse
2005-07-11 02:09
2005.07.31
Дочерние окна из dll


3-1118921580
Сергей2
2005-06-16 15:33
2005.07.31
Использование процедуры из package


1-1120900326
KyRo
2005-07-09 13:12
2005.07.31
Случайное число


3-1119352825
MS-REM
2005-06-21 15:20
2005.07.31
Как пользоватся комонентом StoredProc


4-1117876588
Random(256)
2005-06-04 13:16
2005.07.31
Как установить соединение без компонентов...