Hola Angel.
Código:
void StyledText(TRichEdit *RE, AnsiString Searched, TFontStyle FS)
{
RE->SelStart = RE->FindText(Searched,0,RE->GetTextLen(),
TSearchTypes() << stMatchCase);
RE->SelLength = Searched.Length();
RE->SelAttributes->Style = RE->SelAttributes->Style << FS;
}
Ejemplo de uso:
Código:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
RichEdit1->Text = "negrita, italica, subrayada, tachada";
StyledText(RichEdit1, "negrita", fsBold);
StyledText(RichEdit1, "italica", fsItalic);
StyledText(RichEdit1, "subrayada", fsUnderline);
StyledText(RichEdit1, "tachada", fsStrikeOut);
QRRichText1->ParentRichEdit = RichEdit1;
QuickRep1->Preview();
}
Saludos