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