列挙型の値を文字列に変換 †
TBrushStyleやTPenStyleなどの列挙型の値を文字列に変換するには次のように行う。
uses TypInfo; function GetBrushStyleName(Value: TBrushStyle): String; begin Result := GetEnumName(TypeInfo(TBrushStyle), Ord(Value)); end;
逆に文字列から値に変換するには次のようにする。
uses TypInfo; function GetBrushStyleValue(Name: String): TBrushStyle; begin Result := TBrushStyle(GetEnumValue(TypeInfo(TBrushStyle), Name)); end;
Counter: 5779,
today: 1,
yesterday: 0
Last-modified: Sun, 05 Feb 2006 16:19:40 JST (6824d)
Last-modified: Sun, 05 Feb 2006 16:19:40 JST (6824d)