在文本编辑框中如何对某些字符单独设置字体?

Question

比如在edit,memo,richedit中,要对数字字符的字体设置成楷体,怎样实现?

Answer 1

richedit可以，edit和memo目前不行

Answer 2

我只知道对选定的字符设置字体,但对某些不是选定的特殊字符却不会.
  RichEdit1.SelAttributes.Name:='楷体';

Answer 3

特定的字符实现，必须使用 RichEdit。

Answer 4

var i: integer;
  str1: string;
begin
  str1 := richedit1.Text;
  if richedit1.Text <> '' then
  begin
    for i := 0 to length(str1) do
      if (str1[i] >= '0') and (str1[i] <= '9') then
      begin
        richedit1.SelStart := i-1;
        richedit1.SelLength := 1;
        RichEdit1.SelAttributes.Color := clRed;
        RichEdit1.SelAttributes.Size := 15;
        RichEdit1.SelAttributes.Name := '楷体';      end;
  end;
end;