Текущий архив: 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.47 MB
Время: 0.046 c
