Delphi 将字型样式转成字串


本文整理自网络,侵删。

 
// 字串转成字型样式
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无dll穿墙下载者

Delphi 释放bitmap

Delphi实现文件下载urldownloadtofile

Delphi android 关闭应用程序对话框询问

Delphi xe7 up1 调用android振动功能

Delphi 根据关键字取关键词以后的字符串

Delphi循环移位操作

Delphi下载官方svn中的示例原码

纯真ip数据库解析Delphi d10.1下正常使用

Delphi示例代码 android,ios,osx,windows,linux,html5

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...