将richedit行中的前4个字符设为粗体

Question

如何在一行中输入前4个字符我要添加粗体？
例如：

richedit1.Lines.Add('Test123');

我希望Test加粗，但保持123正常。

有人可以帮助我吗？

Answer 1

尝试这样的事情：

procedure TForm1.AddFormattedText(const AText: string; AStyle: TFontStyles);
begin
  RichEdit1.SelStart := RichEdit1.GetTextLen;
  RichEdit1.SelLength := 0;
  RichEdit1.SelAttributes.Style := AStyle;
  RichEdit1.SelText := AText;
end;

AddFormattedText('Test', [fsBold]);
AddFormattedText('123'+sLineBreak, []);