Вставить текст в Edit

← →
Whippi © (2002-10-29 11:32) [0]

Как вставить текст в Ричедит, но так что бы он встал, где мигает курсор, а не заменил собой весь текст?
Если можно примерчик.

← →
stone © (2002-10-29 11:36) [1]

RichEdit1.SelStart вернет тебе позицию курсора, ну а дальше дело техники

← →
Song © (2002-10-29 11:46) [2]

RichEdit1.Lines.Text:="ваш_текст" и не надо никаких SelStart"ов.

← →
Whippi © (2002-10-29 12:04) [3]

> Song © (29.10.02 11:46)
> RichEdit1.Lines.Text:="ваш_текст"
Нет, нужно, чтобы он не подменял собой существующий текс, например, есть текс "абс"курсор мигает после "с" нужно чтобы после "с" вставилось "д" и текст приобрел вид "абсд".
а если использовать RichEdit1.Lines.Text:="ваш_текст" то в RichEdit вместотребуемого "абсд" будет "д". Вот в чем загвоздка.

← →
Smithson © (2002-10-29 12:07) [4]

I: Integer; S: String; ... I := RichEdit1.SelStart; S := RichEdit1.Lines.Text; S := Copy(S,1,I)+"Ваш текст"+Copy(S,I+1, Length(S)); RichEdit1.Lines.Text := S;

По-моему, так!

← →
MBo © (2002-10-29 12:31) [5]

RichEdit1.SelLength:=0;// выделение снимется, если есть
Richedit1.SelText:=S; // вставка

Спасибо,
все получилось методом Smithson-а

Вставить текст в Edit Найти похожие ветки