var
Index: Integer;
MyLabel: TLabel;
begin
for Index := 1 to 43 do
begin
MyLabel := TLabel(FindComponent'a' + IntToStr(Index));
MyLabel.Caption := IntToStr(Index);
......
end;
end;
젤란 님이 쓰신 글 :
: 안녕하세요. 델파이4로 개발을 하고있는 초보입니다.
: label 에 Name 속성을 a1~a43 까지 만들었는데
: a1.caption 부터 a43.caption 까지 일괄로 초기화 할수 있을까요?
: for 문을 사용하면 어찌 될꺼 같은데 정확한 구현방법을 모르겠네요.
: 고수님들의 자문을 구합니다.
: 감사합니다.
|