サイトカレンダー

サイトカレンダーをスキップ

2018年 10月
«
»
1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31

記事カテゴリ

ユーザー機能


 2018年10月24日(水) 07:44 JST

[Delphi] 列挙型の値を文字列に変換

  • 2012年8月 2日(木) 14:19 JST
  • 投稿者:
  • 表示回数
    365

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;

トラックバック

このエントリのトラックバックURL:
http://www.blackcatlab.com/trackback.php/ProgramingFAQ_del0086

以下のコメントは、その投稿者が所有するものでサイト管理者はコメントに関する責任を負いません。