配列に対応したCaptionを入力するには？

解決

鉄 2007-11-21 08:30:39 No: 28607

質問失礼しますm_ _m

procedure TMainPage.N1Click(Sender: TObject);
type
  x=array[1..10] of TButton;
var
  Button:x;
  c:integer;
begin
  c:=0;
  repeat
    c:=c+1;
    Button[c]:= TButton.Create(Self);
    Button[c].Parent:= Panel1;
    Button[c].Caption:= 'ボタン';
    Button[c].Width:= 35;
    Button[c].Height:= 70;
    Button[c].Align:= altop;
  until c = 10;
end;

上記のようなプログラムでボタンを生成する際、10個のボタンすべてのCaptionが「ボタン」となってしまいます。
これをそれぞれ、「ボタン1」、「ボタン2」〜〜〜「ボタン10」と表示させたいのですが、どのようにすればいいでしょうか？？
初心者ですがどうかお願いします。

うんと 2007-11-21 08:32:47 No: 28608

>Button[c].Caption:= 'ボタン';

を

Button[c].Caption:= 'ボタン'+IntToStr(c);

じゃないかな

鉄 2007-11-21 08:46:57 No: 28609

ありがとうございます。おかげ様でできました！！！
ご指導感謝します。