Q&A

  • 초보의 질문!.
Edit1.text:=table1.fields[0].asstring;

Edit2.text:=table1.fields[1].asstring;

. .

. .

Edit6.text:=table1.fields[5].asstring;



요것을 간단히 쓰는 방법은 없을까여?



또 컴포넌트를 배열로 사용하는법은 없나요?





1  COMMENTS
  • Profile
    한하눌 2000.10.28 02:29
    눈까러~ wrote:

    > Edit1.text:=table1.fields[0].asstring;

    > Edit2.text:=table1.fields[1].asstring;

    > . .

    > . .

    > Edit6.text:=table1.fields[5].asstring;

    >

    > 요것을 간단히 쓰는 방법은 없을까여?

    >

    > 또 컴포넌트를 배열로 사용하는법은 없나요?

    >

    >



    // 배열로 하는거는 몰라도

    procedure TForm1.Button1Click(Sender: TObject);

    var

    tmpComp : TComponent;

    intCnt : integer;

    begin

    for intCnt := 1 to 3 do

    begin

    // 이름으로 콤포넌트를 찾아요

    tmpComp := FindComponent('Edit' + IntToStr(intCnt));

    // 만일 찾았다면

    if tmpComp <> nil then

    (tmpComp as TEdit).Text := inttostr(intCnt);

    end;

    end;



    이건 어떨까요 ?