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