Q&A

  • 여러개의 Label 에 차례대로 숫자 입력하기
Label1 ~ 10 까지의 컴포넌트가 있는데...

그 컴포넌트들의 Caption 에 차례대로 1~10 까지의 숫자를 넣고 싶습니다.

하나하나 코딩하는것 말고...

다른 간단한 방법이 있을까요?
1  COMMENTS
  • Profile
    하야로비 2003.03.23 09:00
    이런식으로 코딩하시면..^^
    procedure TForm1.Button1Click(Sender: TObject);
    var
      i: integer;
      Count: Integer;
    begin
      Count := 1;
      for i := 0 to Self.ComponentCount - 1 do
        if Components[i].ClassName = 'TLabel' then begin
          TLabel(Components[i]).Caption := IntToStr(Count);
          inc(count);
        end;
    end;