Aquí ando con una dudita pequeñita.... Tengo una aplicación que me permite agregar en un Texto contenido en un RichEdit algunas etiquetas que me sirven como campos para obtener los datos de una BD y que serán insertados en el Texto al momento de ejecutarse....
Por el momento tengo esto:
procedure TForm3.ListBox1DblClick(Sender: TObject); var a, sEtiqueta: String; begin sEtiqueta:= ProcesaEtiqueta(ListBox1.Items[ListBox1.ItemIndex]); a:=cxRichEdit1.Text; Insert(sEtiqueta,a,cxRichEdit1.SelStart); cxRichEdit1.Text:=a; end;
Si el Texto contenido en el RichEdit tiene saltos de linea o espacios la inserción no se hace a partir del cursor. SelStart se supone que me da la posición del mismo, pero al parecer no considera ni los espacios ni los saltos de línea, generando algo así:
AAAA AAAAAAA
AAAAAA<etiqueta>AAAA
en vez de:
AAAA AAAAAAA
AAAAAAAAAA <etiqueta>
Espero que se haya entendido mi problemita y les agradeceré bastante su ayuda
Saludox !