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 memo1 数字列设定取值范围

Delphi 获取硬盘盘符

Delphi xe5 Delphi 解析 json

Delphi版本号检测判断

Delphi 上传文件到七牛,纯原生

Delphi 获取系统mydocuments文件夹路径

Delphi模仿“千千静听”滚动标题栏

Delphi 使richedit中的链接可以点击

Delphi使用ado读写excel文件

Delphi 限制form窗体为固定的大小

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



打赏

取消

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

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

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

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

评论

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