プロが教える店舗&オフィスのセキュリティ対策術

スマートな書き方ってありませんか?
//-----------
button1.Caption := btn_cap[1];
button2.Caption := btn_cap[2];
...
button16.Caption := btn_cap[16];
こんなプログラムを書きたいと思っています。
右辺はfor ループで書けますが、左辺は(forループを使えるような)上記以外の書き方はないのでしょうか?
Delpghi XE5を使用しています。

A 回答 (1件)

ボタンの親コントロールが全部同じ(例えば、Panel1)なら、ボタンのTagに1~16を設定しておいて、



for i := 0 to Panel1.ControlCount - 1 do
if Panel1.Controls[i] is TButton then
TButton(Panel1.Controls[i]).Caption := btn_cap[Panel1.Controls[i].Tag];
    • good
    • 1
この回答へのお礼

解決しました

すばやい回答ありがとうございます。
うまくいきました。

お礼日時:2015/06/14 16:15

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!