Q&A

  • 실행시 버튼,텍스트창등을 동적수행하렵니다만
예를들어 Edit01 ~ Edit33 까지 있고 Button01~Button33까지 있을때

이를 변수처리해서 실행시 동적사용하고 싶은데요....

선언은 그대로 하고,

실행시


    Edit03.Text := '뭐라뭐라1'
    Edit04.Text := '뭐라뭐라2'
    Edit05.Text := '뭐라뭐라3'
    Edit06.Text := '뭐라뭐라4'


  for i := 1 to 33 do begin
      뭔가(Edit+i).Text := '뭐라뭐라'+i ;
  end;

뭐 이렇게 하고싶거던요.....
버튼에 대한 처리도 마찬가지로요...

어찌하면 될까요?

고수님들의 조언부탁드립니다...  ^꾸벅^
4  COMMENTS
  • Profile
    최용일 2007.10.02 01:48
    아래와 같이 해보세요...

    <!--CodeS-->
    var
      Edit: TEdit;
      Index: Integer;
    begin
      for Index := 1 to 33 do
      begin
        Edit := FindComponent('Edit' + FormatFloat('00', Index);
        if Assigned(Edit) then
          Edit.Text := '뭐라뭐라'+ IntToStr(Index);
      end;
    end;
    <!--CodeE-->

  • Profile
    신익철 2007.10.05 03:49
    답변 감사합니다....

    그런데,  컴파일에러가 나네요...

    TEdit  타입에   TComponent 타입을  Assign 할 수 없다는...흑흑
  • Profile
    최용일 2007.10.05 21:08
    Edit := TEdit(FindComponent('Edit' + FormatFloat('00', Index));

  • Profile
    신익철 2007.10.07 13:44
    ..