FastReport, Delphi и форматирование текста

Varyag061

Доброго времени суток. Имеется компонент RichEdit в Delphi, которая передаётся через переменную на печать в FastReport. В компоненте RichEdit имеется около 10 слов помимо остального текста которые требуют при печати полужирное начертание (FsBold). Как возможно реализовать чтобы это было выполнено? Существует ли значение для условного выделения при нахождении слова в тексте, которое меняет только в этом слове начертание? Или как можно вписать при наличии этих слов HTML теги для их последующего выделения? Вписывать из Delphi на самом компоненте невозможно - программой пользуюсь не только я, да и нарушается стройность компонента

wadikj

Здравствуйте!

С помощью какого компонента выводится на печать содержимое RichEdit? Если вы используете TfrxMemoView, то вы можете использовать HTML-теги, включив у TfrxMemoView свойство AllowHTMLTags

Varyag061

https://forum.fast-report.com/ru/discussion/comment/37555#Comment_37555

Про включения тега знаю. Проблема была в том, что надо было прописать эти теги из FastReport или Delphi на уровне кода. То есть пользователь их не должен был видеть. Но в целом - задача решена кодом

procedure TForm1.frxReport1GetValue(const VarName: string; var Value: Variant);
const
  wrd: array [1..2] of String = ('ч/з инфузомат', 'в/в кап.');
var
  i: Integer;
begin
  if AnsiCompareText(VarName, 'Pills')=0 then
  begin
    Value := RichEdit1.text;
    for i := Low(wrd) to High(wrd) do
      Value := StringReplace(Value, wrd[i], '<b>' + wrd[i] + '</b>', [rfReplaceAll, rfIgnoreCase]);
  end;
end;