TearDrops - B-Wiki - 列挙型の値を文字列に変換のバックアップの現在との差分(No.2)

[ トップ ] [ 新規 | 一覧 | 単語検索 | 最終更新 | ヘルプ ] [ Trackback(0) ] [ リンク元 ]

バックアップ一覧
ソースを表示
バックアップを表示
列挙型の値を文字列に変換は削除されています。
- 1 (2005-10-05 21:16:49 (水))
- 2 (2005-10-05 21:17:20 (水))
- 3 (2005-10-06 22:51:00 (木))

追加された行はこの色です。
削除された行はこの色です。

 [[Delphi]]
 **列挙型の値を文字列に変換 [#n0fadb79]
 
 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;

ログイン: パスワード: 新規登録パスワード紛失