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;