Q&A

  • Label1.Caption 문장을 1씩 증가하는것을 보고싶다 델파리버그인가..
var

i : integer;

Begin

for i:=1 to 4 do

Begin

Label1.Caption := inttostr(i);

Sleep(2000); // 시간지연

End;

End;



위의 문장을 실행해 보세요..

전 Label문장을 이용하여 1씩 증가 하는 모습을 보고 싶은데 실행을 하면 최종값만 보여주네요..



미친다..

3  COMMENTS
  • Profile
    김시준 2001.07.05 02:45
    왕초보 wrote:

    > var

    > i : integer;

    > Begin

    > for i:=1 to 4 do

    > Begin

    > Label1.Caption := inttostr(i);

    Update; ======================> 이 코드를 넣어주세요......

    > Sleep(2000); // 시간지연

    > End;

    > End;

    >

    > 위의 문장을 실행해 보세요..

    > 전 Label문장을 이용하여 1씩 증가 하는 모습을 보고 싶은데 실행을 하면 최종값만 보여주네요..

    >

    > 미친다..

  • Profile
    초보 2001.07.05 00:10
    왕초보 wrote:

    > var

    > i : integer;

    > Begin

    > for i:=1 to 4 do

    > Begin

    > Label1.Caption := inttostr(i);

    > Application.ProcessMessages; ===> 추가

    > End;

    > End;

    >

    > 위의 문장을 실행해 보세요..

    > 전 Label문장을 이용하여 1씩 증가 하는 모습을 보고 싶은데 실행을 하면 최종값만 보여주네요..

    >

    > 미친다..

  • Profile
    델피언 2001.07.04 20:42
    왕초보 wrote:

    > var

    > i : integer;

    > Begin

    > for i:=1 to 4 do

    > Begin

    > Label1.Caption := inttostr(i);



    ----------------------------------- (1)



    > Sleep(2000); // 시간지연

    > End;

    > End;

    >

    > 위의 문장을 실행해 보세요..

    > 전 Label문장을 이용하여 1씩 증가 하는 모습을 보고 싶은데 실행을 하면 최종값만 보여주네요..

    >

    > 미친다..



    (1)번 부분에 Lable1.Refresh 또는 Form1.Refresh를 넣어보세요..^^;