初来的,打个招呼

Question

在一个没有一点人气的XX论坛呆了几大个月,心里那个悔啊,记得最开始随便选论坛的时候也来个这里,可不知为什么,那个慢啊!
这次一定在这里扎下了.我是新手一个,问一个小问题:我想用复选框表示出文本框内字体是否是粗体应该怎么做?
我当前是用最笨的方法应付的:恁感觉就不对
    if (ActiveEdit as TEdit).Font.Style=[fsbold,fsitalic]  then
     begin
             chkBold.Checked :=True;
             chkItalic.Checked:=True;
     end;
     if (ActiveEdit as TEdit).Font.Style=[fsbold]  then
     begin
             chkBold.Checked :=True;
             chkItalic.Checked:=False;
     end;
     if (ActiveEdit as TEdit).Font.Style=[fsitalic]  then
     begin
             chkBold.Checked :=False;
             chkItalic.Checked:=True;
     end;
     if (ActiveEdit as TEdit).Font.Style=[]  then
     begin
             chkBold.Checked :=False;
             chkItalic.Checked:=False;
     end;

Answer 1

var
  fs:TFontStyles;
begin
 fs:=(ActiveEdit as TEdit).Font.Style; if fsbold in fs  then
 begin
   chkBold.Checked:=true
 end; if fsItalic in fs  then
 begin
   chkItalic.Checked:=true
 end ;

Answer 2

var
  fs:TFontStyles;
begin
 fs:=(ActiveEdit as TEdit).Font.Style; if fsbold in fs  then
   chkBold.Checked:=true
 else
   chkBold.Checked:=false; if fsItalic in fs  then
   chkItalic.Checked:=true
 else
   chkItalic.Checked:=false;