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
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.041948080062866 seconds