Проблема с кириллицей при поиске. [D7, WinXP]
DDDsa © (2005-07-11 00:51:00)
У меня ужасная проблема.
Мне нужно в тексте (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:00) [1]
Вопрос снят я нашел, как это обойти
Наверх 
ЧАТ |
Орешник |
|
