예를들어 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;
뭐 이렇게 하고싶거던요.....
버튼에 대한 처리도 마찬가지로요...
어찌하면 될까요?
고수님들의 조언부탁드립니다... ^꾸벅^
<!--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-->