Q&A

  • 델파이에서 for 문을 돌리려는데...
begin

dbedit1.ReadOnly := false;

dbedit2.ReadOnly := false;

dbedit3.ReadOnly := false;

dbedit4.ReadOnly := false;

dbedit5.ReadOnly := false;

dbedit6.ReadOnly := false;

dbedit7.ReadOnly := false;

dbedit8.ReadOnly := false;

dbedit9.ReadOnly := false;

end;



이걸 for문을 이용하려면 어떻게 하나요?



1  COMMENTS
  • Profile
    묵혼 2001.08.18 19:09
    새까만넘 wrote:

    > begin

    > dbedit1.ReadOnly := false;

    > dbedit2.ReadOnly := false;

    > dbedit3.ReadOnly := false;

    > dbedit4.ReadOnly := false;

    > dbedit5.ReadOnly := false;

    > dbedit6.ReadOnly := false;

    > dbedit7.ReadOnly := false;

    > dbedit8.ReadOnly := false;

    > dbedit9.ReadOnly := false;

    > end;

    >

    > 이걸 for문을 이용하려면 어떻게 하나요?

    >



    procedure TForm1.Button1Click(Sender: TObject);

    var

    i: Integer;

    begin

    for i := 0 to ComponentCount - 1 do

    begin

    if (Components[i] Is TEdit) then

    TEdit(Components[i]).Enabled := False;

    end;

    end;



    위 소스는 Edit로 한거거든요..머 님은 Edit를 DBEdit로 바꾸시면 되겠네요.

    우선은 소스는 위와 같이 하면 되고요 그리고 각 Edit마다 Tag에 각각의 번호 값을 넣어주면 됩니다.



    그럼..전 20000