Q&A

  • TFontStyles를 string으로 바꾸고 싶은데..
Font.Style을 텍스트로 저장하고 싶은데...
어쩔까나여?
아시는분 답변 부탁드립니다.

스트링 타입으로 바꿀 수만 있으면 .....ㅎㅎㅎ
2  COMMENTS
  • Profile
    서은구 2002.02.16 03:40

    Font.Style의 정의를 보니..

    type

      TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut);

      TFontStyles = set of TFontStyle;

    로 되어 있네요.. 겨우 4개밖에 안되는데...
    그냥 if문 가지고 비교하면 안될까요..??

    var Str :String;
    begin
      Str := '';
      if fsBold in Label1.Font.Style then
         Str := Str + 'fsBold'
      if fsItalic in Label1.Font.Style then
         Str := Str + 'fsItalic'
      if fsUnderline in Label1.Font.Style then
         Str := Str + 'fsUnderline'
      if fsStrikeOut in Label1.Font.Style then
         Str := Str + 'fsStrikeOut'
    end;

    좀 무식하긴 하지만요.. 아직은... 하수라서.. ㅠ.ㅠ
    도움이 되었기를...
  • Profile
    유재훈 2002.02.16 18:46