この発言は
#00250　H-Triton        さんのRE:集合型ﾌﾟﾛﾊﾟﾃｨの設定
に対するコメントです

この発言に対し以下のコメントが寄せられています

#00262　H-Triton        さん　RE:集合型ﾌﾟﾛﾊﾟﾃｨの設定




H-Triton  さん、こんにちは

  列挙型では最初の名前の順序数が０となるきまりなので、
>  for i:= 1 to 4 do
>    (FindComponent('CheckBox'+IntToStr(i)) as TCheckBox).Checked:=
>      TSuite(i) in Form1.PlayingCard.Suites;
では、ダメです。
  for i:= 1 to 4 do
    (FindComponent('CheckBox'+IntToStr(i)) as TCheckBox).Checked:=
      TSuite(i - 1) in Form1.PlayingCard.Suites;
とするか、あるいはコントロール配列を使ってよりPascal的な書き方もできます。こ
れについては別発言として整理して書きます。
                                                      CQY00603  T. Kawanishi


Original document by T. Kawanishi    氏 ID:(CQY00603)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。