Главная страница
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.04 c
1-1121260810
Mamed
2005-07-13 17:20
2005.07.31
date Time convertion


1-1121327926
Ascana
2005-07-14 11:58
2005.07.31
Тормозит компонент TListView


3-1118581333
parasolka
2005-06-12 17:02
2005.07.31
Как вставить время в таблицу.


9-1113735560
Fosgen
2005-04-17 14:59
2005.07.31
GLScene Определение "глубины" размещения объектов


1-1121072709
new___
2005-07-11 13:05
2005.07.31
Columns в VirtualStringTree