Pos в RichEdit

← →
Friend © (2005-10-13 12:39) [0]

Помогите решить проблему, в RichEdit загружен rtf файл, при выполнение этого кода

if Pos(AnsiUpperCase(Edit1.Text),AnsiUpperCase(RichEdit1 .Lines.Text)) <> 0 then begin
RichEdit1 .SelStart :=Pos(AnsiUpperCase(Edit1.Text), AnsiUpperCase(RichEdit1 .Lines.Text))-1;
RichEdit1 .SelLength := Length(Edit1.Text);

выделяется текст, только не тот который ищется, а с небольшим сдвигом и чем ближе конец текста тем сдвиг больше, видимо это связано с форматом rtf, потомучто в txt такого нет. Что это такое и как с этим бороться?

← →
Leonid Troyanovsky © (2005-10-13 13:12) [1]

> Pos в RichEdit [D6]
>
> Friend © (13.10.05 12:39)
> Помогите решить проблему, в RichEdit загружен rtf файл,
> при выполнение этого кода

VCL Reference
Position, Execute, FindText, OnFind, SelStart, SelLength example

--
Regards, LVT.

← →
Defunct © (2005-10-13 13:19) [2]

Странно, а в какую сторону сдвиг?
Вообще-то ваш код нормально работает и с RTF и c PlainText

сдвиг вправо, если текст содержит форматирование

Pos в RichEdit Найти похожие ветки