|
Тема |
TRichEdit misbehavior |
|
Автор |
bass (so deep!) |
|
Публикувано | 15.05.03 21:46 |
|
|
Hi all. Запънах на поредния малоумен проблем (след "Ъх че досадно..." преди време :-) ).
Имаме форма с TRichEdit (reDoc) и TEdit (edtKey). Попълваме reDoc с текста 'Това е тест'; Следва опростен пример за илюстрация:
{some code here}
edtKey.Text := 'тест';
reDoc.SetFocus();
reDoc.SelStart := reDoc.FindText('тест', 0, Length(reDoc.Text), []); -> SelStart = -1, не го намира
reDoc.SelStart := reDoc.FindText(edtKey.Text, 0, Length(reDoc.Text), []); -> SelStart = -1, не го намира
{заменям на ръка в edtKey коя да е буква със същата - просто фиктивна промяна}
reDoc.SelStart := reDoc.FindText(edtKey.Text, 0, Length(reDoc.Text), []); -> SelStart = 7, OK
reDoc.SelStart := reDoc.FindText('тест', 0, Length(reDoc.Text), []); -> SelStart = 7, пак OK
btw, тоя номер го прави само за кирилския текст :-)
Преди време правих нещо аналогично и не помня да е имало подобен проблем. Говорим за Delphi 6 и в двата случая.
Редактирано от bass на 15.05.03 21:51.
|
| |
|
|
|