Q&A

  • [급질문]버튼100개를 배열로 선언
만약에여..

버튼이 100개정도 되는데

그걸 으찌 다 이름을 줍니까

그래서 배열로 선선하구 싶어여..

그게 가능한지여..

예를들어

buttons[1..100]

이런식으로

감사합니당.. 답변좀..

2  COMMENTS
  • Profile
    방기남 2001.02.28 09:03
    var

    BTN: Array of TButton;



    procedure TForm1.FormCreate(Sender: TObject);

    begin

    SetLength(BTN, 100);

    end;



    100개의 버튼을 동적으로 생성하고, BTN[1].Caption := ''; 등과같이 쓸 수 있습니다.



    for i := 1 to 100 do

    TButton(FindComponent('BTN' + IntToStr(i))).Name := 'BTN'+IntToStr(i);



    ^^



  • Profile
    kylix 2001.02.28 12:31
    근데요... 그렇게 배열을 선언해가지구 잡아주시면 FindComponent를 쓸필요가 없지 않을까요...



    배열의 인덱스를 참조하도록 만들어서 쓰는것이 더 좋을듯 하군요...





    방기남 wrote:

    > var

    > BTN: Array of TButton;

    >

    > procedure TForm1.FormCreate(Sender: TObject);

    > begin

    > SetLength(BTN, 100);

    > end;

    >

    > 100개의 버튼을 동적으로 생성하고, BTN[1].Caption := ''; 등과같이 쓸 수 있습니다.

    >

    > for i := 1 to 100 do

    > TButton(FindComponent('BTN' + IntToStr(i))).Name := 'BTN'+IntToStr(i);

    >

    > ^^

    >