本文整理自网络,侵删。
// 字串转成字型样式Function StringToStyle(s:String):TFontStyles;var ft:TFontStyles;begin if pos('B',s) >0 then ft := ft + [fsBold]; if pos('I',s) >0 then ft := ft + [fsItalic]; if pos('U',s) >0 then ft := ft + [fsUnderline]; if pos('S',s) >0 then ft := ft + [fsStrikeOut]; Result := ft;end; // 字型样式转成文字Function StyleToString(ft:TFontStyles):String;var s:String;begin s:= ''; if fsBold in ft then s := s + 'B'; if fsItalic in ft then s := s + 'I'; if fsUnderline in ft then s := s + 'U'; if fsStrikeOut in ft then s := s + 'S'; Result := s;end
相关阅读 >>
Delphi示例代码 android,ios,osx,windows,linux,html5
更多相关阅读请进入《Delphi》频道 >>