RSS订阅 | 匿名投稿
您的位置:网站首页 > 字符串 > 正文

Delphi 将字型样式转成字串

作者:admin 来源: 日期:2014/11/24 20:55:03 人气: 标签:

// 字串转成字型样式
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

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: