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

Delphi の集合型を文字列に変換したり、文字列から集合型へ設定したり

プロパティでない場合 SetToString や StringToSet を使うのかも

今回は Font.Style <-> 文字列 をRTTIを用いて相互に変換

view plainprint?

1. uses System.TypInfo;  
2.   
3. // 集合型→文字列  
4. S := GetSetProp(Memo1.Font, 'Style');  
5.   
6. // 文字列→集合型  
7. SetSetProp(Memo1.Font, 'Style', S);  

uses System.TypInfo;

// 集合型→文字列
S := GetSetProp(Memo1.Font, 'Style');

// 文字列→集合型
SetSetProp(Memo1.Font, 'Style', S);