掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
イベントプロシジャ内で、コントロール名を判断して処理を振り分けるには (ID:24003)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> この場合「Club」というものは文字として認識されているということなのでしょうかね。 「文字として認識」という意味がわかりませんが。 要素が８個までなら、byte にキャストすると各要素の定義がビットフラグになって いるのが分かります。上の例なら Club = 1 Diamond = 2 Heart = 4 Spade = 8 です。 type TCard = set of (Club, Diamond, Heart, Spade, Hoge, HogeHoge); procedure TForm1.Button1Click(Sender: TObject); var c: TCard; begin c := [Club, Spade]; Label1.Caption := IntToStr(byte(c)); end; いろいろ要素を入れ換えて試してみてください。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.