今回は趣向を変えて、あちこちの tips サイトで見かけるような珍しくもない tips をまとめてどどーんと紹介。
今までの tips の中にも、珍しくないものが混じっているという突っ込みは禁止(笑)
ちゅーわけで、不定期でここのページは拡大する予定。
Form2.Flag.Flag1 := Form3.CheckBox1.Checked;
Form2.Flag.Flag2 := Form3.CheckBox2.Checked;
Form2.Flag.Flag3 := Form3.CheckBox3.Checked;
Form2.Flag.Flag4 := Form3.CheckBox4.Checked;
Form2.Flag.Flag5 := Form3.CheckBox5.Checked;
長々としていますねえ。
こんな時は以下の様に省略できます。
with Form2.Flag, Form3 do
begin
Flag1 := CheckBox1.Checked;
Flag2 := CheckBox2.Checked;
Flag3 := CheckBox3.Checked;
Flag4 := CheckBox4.Checked;
Flag5 := CheckBox5.Checked;
end;
実は with って複数でも受けつけるんですねえ。