ログイン: パスワード:   新規登録  パスワード紛失
 
メインメニュー
検索
オンライン状況
登録ユーザ: 0
ゲスト: 15
テーマ選択

(4 テーマ)
列挙型の値を文字列に変換 のバックアップソース(No.3)

RIGHT:[[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;


トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
PR