FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Insertar una cadena en la posicion del curso en un richedit (RTF) sin perder formato
Saludos comunidad Delphi,
Estoy tratando de realizar una rutina para insertar insertar la variable sEtiqueta en el lugar que marque la posición del ratón dentro del componente richedit (llamado doc), el problema es que la Insert le quita el formato, pues utiliza la propiedad text. Código:
procedure TfrmDocMultiples.Label9DblClick(Sender: TObject); var a, sEtiqueta: String; Corriente: TStringStream; begin Corriente := TStringStream.Create(''); a:= doc.Text; sEtiqueta:='[NRO_CARTA]'; try // doc.Lines.SaveToStream(Corriente); //Insert(sEtiqueta,Corriente.ToString,doc.SelStart+1+doc.CaretPos.Y); Insert(sEtiqueta,a,doc.SelStart+1+doc.CaretPos.Y); doc.Text := a; //doc.Lines.LoadFromStream(Corriente); finally if Assigned(Corriente) then Corriente.Free; end; end; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
guardar un texto con formato en un nodo xml sin perder el formato | danyfebrero | Varios | 4 | 15-08-2012 00:37:17 |
insertar texto en richedit con formato | Lizeth | Varios | 8 | 19-10-2011 18:55:20 |
Elegir Posicion de una cadena String y eliminar caracter en una posicion deseada | BuRtOn | Varios | 14 | 26-03-2009 23:59:39 |
Como guardar y cargar los datos de un RichEdit sin perder los Atributos? | pmcastilla | Varios | 4 | 10-10-2007 15:09:48 |
Chat con RichEdit como no perder el texto seleccionado | Sr_Sombrero | OOP | 0 | 18-03-2005 14:45:42 |
|