Проблема с кириллицей при поиске.

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

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

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