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

[leijinhe]

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

[leijinhe]

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;

[cll007]

我只知道对选定的字符设置字体,但对某些不是选定的特殊字符却不会.
----------
上面一句话怎么理解？

[ztenv]

richedit可以，edit和memo目前不行

[leijinhe]

richedit怎样实现?

[leijinhe]

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

[leijinhe]

望各位不吝赐教!

[CloneCenter]

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

[leijinhe]

richedit怎样实现?

[leijinhe]

有人知道吗?