Delphi の集合型プロパティを文字列に変換(その逆も)

Delphi の集合型を文字列に変換したり、文字列から集合型へ設定したり
プロパティでない場合 SetToString や StringToSet を使うのかも

今回は Font.Style <-> 文字列 をRTTIを用いて相互に変換
  1. uses System.TypInfo;  
  2.   
  3. // 集合型→文字列  
  4. S := GetSetProp(Memo1.Font, 'Style');  
  5.   
  6. // 文字列→集合型  
  7. SetSetProp(Memo1.Font, 'Style', S);  

コメント