将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, []);