Q&A

  • checkbox를 for문 돌려서 간단하게 처리하고 싶은데.. 갈켜주세요
//==========>개발 소스입니다.
    if copy(laJing_gubun_list.Caption,1,1)='1' then
    begin
      cb_jing_gubun_01.Checked := true;
    end
    else
    begin
      cb_jing_gubun_01.Checked := false;
    end;

    if copy(laJing_gubun_list.Caption,2,1)='1' then
    begin
      cb_jing_gubun_02.Checked := true;
    end
    else
    begin
      cb_jing_gubun_02.Checked := false;
    end;

    if copy(laJing_gubun_list.Caption,3,1)='1' then
    begin
      cb_jing_gubun_03.Checked := true;
    end
    else
    begin
      cb_jing_gubun_03.Checked := false;
    end;

    if copy(laJing_gubun_list.Caption,4,1)='1' then
    begin
      cb_jing_gubun_04.Checked := true;
    end
    else
    begin
      cb_jing_gubun_04.Checked := false;
    end;
//==================이렇케 해서 체크박스가 20개 가 있습니다.
그런데..이것을 일일히 코딩할려니 짜증이 나서요.
어떤 규칙성이 있기 때문에..for으로 돌려서 체크하고 싶거든요.
제가 체크박스 이름을 cb_jing_gubun_에 1,2,3..20까지 serial하고 만들었습ㄴ디다. 고수님들의 가르침 바랍니다.
2  COMMENTS
  • Profile
    너구리 2004.05.05 01:31
    이와 관련된 답변은 많이 있습니다.

    Sender로 찾으셔도 나올거 같구요..

    아니면 Components로 찾으셔도 될거 같습니다.

    그리고 제목에 [질문]이라고 넣어주세요~~~

  • Profile
    Crazy 2004.05.05 02:02
    1) for i := 0 to ComponentCount - 1 do
       begin
            if (Components[i] is TCheckBox) then
            begin
                 (Components[i] as TCheckBox).Checked := False;
            end;
       end;

    2) for i := 1 to 20 do
       begin
            TCheckBox( FindComponent( 'CheckBox' + inttostr( i ) ) ).Checked := True;
       end;

    조금 응용해서 Panel 안에 상속되어 있다면
            TCheckBox( FindComponent( 'CheckBox' + inttostr( i ) ) ).Parent = TPanel1 then
    begin
            TCheckBox( FindComponent( 'CheckBox' + inttostr( i ) ) ).Checked := True;
    end;
    이런식으로 쓸수 있겠죠...

    • 뭉치
    • 2004.05.05 02:39
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 박수영
      2004.05.06 17:56
      보통은 DB의 패스워드는 건드리지 않고 user 테이블을 하나 두어서 관리를 하던구요...디비의 패스워드...
    • 정승운
      2004.05.05 02:44
      DB를 외부에 노출시킴으로서 발생되는 문제입니다. 실제로 id나 암호가 노출되는 문제보다 외부에서 직접 ...
    • 미소^^
      2004.05.05 03:59
      ..
    • 이선행
    • 2004.05.05 02:09
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 김철홍
      2004.05.06 19:27
      999\.999\.999\.999;1 마지막 부분에서   .\999;1이 아니고 \.999;1 으로 써야겠지요.
    • 엄문용
    • 2004.05.05 01:23
    • 1 COMMENTS
    • /
    • 0 LIKES
    • [勳]후니
      2004.05.06 18:13
      시리얼 통신쪽을 공부 하셔야 할꺼 같네요.. 우선 통신에선 일반적으로 네트워크를 이용하여 소켓 통신...
    • 구은숙
    • 2004.05.05 01:21
    • 2 COMMENTS
    • /
    • 6 LIKES
    • 너구리
      2004.05.05 01:31
      이와 관련된 답변은 많이 있습니다. Sender로 찾으셔도 나올거 같구요.. 아니면 Components로 찾으셔...
    • Crazy
      2004.05.05 02:02
      1) for i := 0 to ComponentCount - 1 do    begin       &nbs...
    • 조우택
    • 2004.05.04 23:30
    • 0 COMMENTS
    • /
    • 0 LIKES
    • help me
    • 2004.05.04 19:07
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 김진용
      2004.05.04 22:04
      procedure TForm1.SortStringgrid(Grid: TStringGrid; byColumn: LongInt;  ascending: Bool...
    • help me
      2004.05.05 01:13
    • Crazy
      2004.05.05 02:59
      이건 이해가 가실지??? 델파이코딩이 아니라 pl-sql 이거든요? 로직보시면 아실겁니다. 참고로 p_GUBUNS...
    • 김철홍
      2004.05.04 19:10
      제가 잘은 모르지만 2000이나 XP에서 잘 돌아간다면 그건 OS의 문제가 아닌거 같은데요. 실행시키는데 문...
    • 홍봉기
    • 2004.05.04 17:58
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 김철홍
      2004.05.04 17:56
      잘하셨는데요.. 다만 실행시키고 보이지 않는 건  Form Size가 너무 작아서 그런거랍니다. form...
    • 영원한초짜
      2004.05.04 23:31
      우선 잘했다고 칭찬까지 해주셔서 무척 감사드리고 답변주셔서 감사 드립니다 (__*) 그런데 저는 아래...
    • 최용일
      2004.05.05 00:59
      안녕하세요. 최용일입니다. 맨 마지막 줄에서 폼을 띄워주세요... procedure TForm1.FormCreate(Send...
    • 영원한초짜
      2004.05.05 02:35
      질문올리기전 해볼 것은 이것저것 다 해봤는데.. (제가 아는 한도까지 ^^) 왜 안되는지 몇시간동안 델파...
    • 맑은물
    • 2004.05.04 12:19
    • 1 COMMENTS
    • /
    • 0 LIKES
    • Crazy
      2004.05.05 03:05
      답변이라기 보다는 그럼 아싸리 퀵리포트 폼에 쿼리 하나 두고서 그 쿼리에 값을 출력할 자료만 넣는것은 ...
    • 성지현
    • 2004.05.04 04:30
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 프리맨
      2004.05.04 20:12
      Class는 붕어빵 기계(?) 입니다. 여기에 밀가루 반죽(리소스)을 넣고 구으면.. 붕어빵(인스턴스)이 나...
    • 너구리
      2004.05.04 20:40
      붕어빵기계의 상위 클래스 빵기계 클래스가 있습니다. 빵기계 클래스에는 내용물변수와 틀모양변수와 (C...
    • 김민웅
    • 2004.05.04 04:05
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 미러
    • 2004.05.04 02:45
    • 6 COMMENTS
    • /
    • 0 LIKES
    • 프리맨
      2004.05.04 19:39
      StrPos를 써보세요. function StrPos(const Str1, Str2: PChar): PChar; StrPos는 PChar를 사용하기 ...
    • 김철홍
      2004.05.04 18:54
      그냥 허접하게 만들어봤네요. Str이라는 문자열에서 '1'이라는 문자를 찾으려고 할때 3번째 문자의 위치를 ...
    • 김도형
      2004.05.04 02:59
        nPos := pos( 's' , sStr ) + 2; 이렇게 하면 어떨까요 ^^;; 답변이 되지 않았다면 ...
    • 미러
      2004.05.04 03:01
    • 김도형
      2004.05.04 03:21
      procedure TForm1.Button1Click(Sender: TObject); var   sStr : string;   nI...
    • 김도형
      2004.05.04 03:28
      procedure TForm1.Button1Click(Sender: TObject); var   sStr : string;   nI , n...
    • 박수영
    • 2004.05.04 01:51
    • 2 COMMENTS
    • /
    • 0 LIKES
    • KDDG_ZZOM
      2004.05.04 02:23
      procedure TForm1.Button1Click(Sender: TObject); var   Rect : TRect; begin   ...
    • 박수영
      2004.05.05 00:18
    • 홍길동
    • 2004.05.03 23:11
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 전대식
    • 2004.05.03 23:09
    • 0 COMMENTS
    • /
    • 0 LIKES