Variables en RichEdit

[chona]

Como puedo asignar valores al richedit sin que me cambie el formato (negrita, subrayado, tamaño de letra, etc) del .rtf
ejemplo:

Código Delphi [-]
richedit1.text := stringreplace(richedit1.text,'%nombre%','pepe',flag);

Esto me pasa todo el texto a un solo formato de texto, por ej. todo el texto con el mismo tramaño, tipo de letra, justificado, etc.

[roman]

Hola,

Veo que StringReplace al parecer no da el ancho. Buscando por ahí he visto esta solución:

Código Delphi [-]
var
  Start: Integer;

begin
  Start := RichEdit1.FindText(FindText, 0, Length(RichEdit1.Text), []);
  if Start <> -1 then
  begin
    RichEdit1.SelStart := Start;
    RichEdit1.SelLength := Length(FindText);
    RichEdit1.SelText := ReplaceText;
  end;
end;

donde FindText es el texto a buscar y ReplaceText el texto para reemplazar.

Lo que esto hace es usar el método FindText del RichEdit para encontrar el texto, lo selecciona y lo reemplaza usando SelText.

// Saludos

[n3mohack]

Amigo... si quieres asegurarte que te selecciona.. agrega la siguiente linea


begin
RichEdit1.SetFocus;
RichEdit1.SelStart := Start;

... sólo como comentario.