K kevin_m Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-05 #1 如何將TfontStyle類型轉成string類型
K Kingron Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-05 #2 Format函数： Result:=Format('%s|%d|%d|%d.....',[Font.Name,Font.Color,Font.Size,Font.CharSet.....])
K Kingron Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-05 #4 呵呵，我原来没有看清楚题目！其实集合是若干个字节的，把相应的Bit设置为0or1来表示而已 如果你用Bit操作很简单，不的话，也可以用集合操作实现！
K kevin_m Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-05 #5 to Kingron: 不是很明白,能詳解嗎? to 卷起千堆雪tyn: 能一項一項的判斷嗎?
K kevin_m Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-05 #6 如現在我想判斷fsbold在不在tfont.style中該怎么判斷呢?
K Kingron Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-05 #7 var s:byte; ... s:=0; if fsbold in Font.Style then inc(s,1) if fsUnderLine in Font.Style then inc(s,2)e; if fsitaly in Font.Style then inc(s,4) ..... ......... 这样就转换成integer了，不过最好使用Bit操作~~~~，那样就更加方便一些。
var s:byte; ... s:=0; if fsbold in Font.Style then inc(s,1) if fsUnderLine in Font.Style then inc(s,2)e; if fsitaly in Font.Style then inc(s,4) ..... ......... 这样就转换成integer了，不过最好使用Bit操作~~~~，那样就更加方便一些。
卷 卷起千堆雪tyn Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-05 #9 TFontStyle是一个字体类型的集合， TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut); a :TFontStyle; if a in [fsBold, fsItalic, fsUnderline, fsStrikeOut] then begin .... end; 一项一项也一样的： if a in [fsBold] then begin end; if a in [fsItalic] then begin end;
TFontStyle是一个字体类型的集合， TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut); a :TFontStyle; if a in [fsBold, fsItalic, fsUnderline, fsStrikeOut] then begin .... end; 一项一项也一样的： if a in [fsBold] then begin end; if a in [fsItalic] then begin end;
