Q&A

  • 1씩증가하는 루틴...
챙피함을 무릅쓰고 올립니다.

몇시간전 나는 나의 머리가 어떻게 된게 아닌가 하는 생각을 했습니다.

클릭 할때마다 1씩 증가하려면...

이건 누구나 다 아는 건데...왜이리 난 생각이 안나는 건지..

아무튼 지금 몇시간째 인터넷을 뒤지며 ...식은땀이 나고 있습니다.

그냥 폼에 라벨하나놓고 버튼하나놓고 버튼한번누를때마다 라벨 캡션이

1씩 증가하는 건데....아마도 내머리에 괴리가 일어났나봅니다..

으....열받는군요.

어서 도와주시기바랍니다....제발...이거 장난으로 올린거 아니구

진짜...답답해서 올린겁니다.

그럼 수고하세요..

2  COMMENTS
  • Profile
    김시준 2001.07.28 23:08
    =============================================

    Inc(i)

    label1.Caption := IntToStr(i);

    Update; ==> 곧바로 레이블에 표시.....

    ==============================================





    EzyRyder wrote:

    > 챙피함을 무릅쓰고 올립니다.

    > 몇시간전 나는 나의 머리가 어떻게 된게 아닌가 하는 생각을 했습니다.

    > 클릭 할때마다 1씩 증가하려면...

    > 이건 누구나 다 아는 건데...왜이리 난 생각이 안나는 건지..

    > 아무튼 지금 몇시간째 인터넷을 뒤지며 ...식은땀이 나고 있습니다.

    > 그냥 폼에 라벨하나놓고 버튼하나놓고 버튼한번누를때마다 라벨 캡션이

    > 1씩 증가하는 건데....아마도 내머리에 괴리가 일어났나봅니다..

    > 으....열받는군요.

    > 어서 도와주시기바랍니다....제발...이거 장난으로 올린거 아니구

    > 진짜...답답해서 올린겁니다.

    > 그럼 수고하세요..

  • Profile
    이성훈 2001.07.28 08:11
    가끔씩 그럴때가 있죠..ㅎㅎㅎㅎ

    일단 변수를 선언하고요.

    procedure TForm1.Button1Click(Sender: TObject);

    begin

    i := i+1;

    label1.Caption := IntToStr(i);

    end;

    이렇게 해주시면 될것 같은데...

    즐프하세요...





    EzyRyder wrote:

    > 챙피함을 무릅쓰고 올립니다.

    > 몇시간전 나는 나의 머리가 어떻게 된게 아닌가 하는 생각을 했습니다.

    > 클릭 할때마다 1씩 증가하려면...

    > 이건 누구나 다 아는 건데...왜이리 난 생각이 안나는 건지..

    > 아무튼 지금 몇시간째 인터넷을 뒤지며 ...식은땀이 나고 있습니다.

    > 그냥 폼에 라벨하나놓고 버튼하나놓고 버튼한번누를때마다 라벨 캡션이

    > 1씩 증가하는 건데....아마도 내머리에 괴리가 일어났나봅니다..

    > 으....열받는군요.

    > 어서 도와주시기바랍니다....제발...이거 장난으로 올린거 아니구

    > 진짜...답답해서 올린겁니다.

    > 그럼 수고하세요..