この発言は
#00244　T. Kawanishi    さんのRe:集合型ﾌﾟﾛﾊﾟﾃｨの設定
に対するコメントです

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

#00258　T. Kawanishi    さん　Re:集合型ﾌﾟﾛﾊﾟﾃｨの設定




T. Kawanishiさん：こんばんは〜  H-Tritonです。

》  TSuite(i) でＯＫです。

なにかあるだろうとは思ってましたが、こんなうまい方法があったとは。
ご教示いただきありがとうございます。
それから、＃２４３のコードに誤りがありましたので再掲します。
(誤) for i:= 0 to 3 do   (正) for i:= 1 to 4 do
------------------------------------------------------------
unit Form2;

(中略)

implementation

{$R *.DFM}
uses
  Form1;

// ﾒｲﾝﾌｫｰﾑからｵﾌﾟｼｮﾝﾀﾞｲｱﾛｸﾞを開いた時の処理
procedure TForm2.FormShow(Sender: TObject);
var
  i: Integer;
begin
  //集合型に含まれる要素に対応するﾁｪｯｸﾎﾞｯｸｽにﾁｪｯｸを入れる
  for i:= 1 to 4 do
    (FindComponent('CheckBox'+IntToStr(i)) as TCheckBox).Checked:=
      TSuite(i) in Form1.PlayingCard.Suites;
end;

// Okﾎﾞﾀﾝでｵﾌﾟｼｮﾝﾀﾞｲｱﾛｸﾞを閉じた場合の処理
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i: Integer;
  Tmp: TSuites;
begin
  if ModalResult <> mrOK then Exit;
//ﾁｪｯｸされたﾁｪｯｸﾎﾞｯｸｽに対応する要素を集合型に組み入れる
  Tmp:= [];
  for i:= 1 to 4 do
    if (FindComponent('CheckBox'+IntToStr(i)) as TCheckBox).Checked
    then Tmp:= Tmp + [TSuite(i)];
  Form1.PlayingCard.Suites:= Tmp;
end;

end.

                ☆ Ｈ-Ｔriton (^^) since 1996 ☆
                  Avalon's Friendly Club #80008
        ♪ Merry X'mas from ☆FDELPHI Sample Magazine ♪

Original document by H-Triton        氏 ID:(QZV11422)

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