Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c