Q&A
- 증가시키는걸 눈에 보일수있게.. 하려면..?? ^^
음..다름이 아니라...
버튼을 누르면 1부터 10000까지 증가하는 과정을 볼려구 하는데여...
이렇게 했는데여... ^^;;
procedure TForm1.Button2Click(Sender: TObject);
var
cnt : integer;
begin
cnt := 1;
with cnt < 10000 do
begin
label1.caption := cnt;
cnt := cnt + 1;
end;
end;
쿠쿠쿠쿠.. 이렇게 했는데.. 끝에 값 9999이거만 찍혀여... ^^;;
왜그럴까여... 궁금해랑.... ㅠ.ㅠ
버튼을 누르면 1부터 10000까지 증가하는 과정을 볼려구 하는데여...
이렇게 했는데여... ^^;;
procedure TForm1.Button2Click(Sender: TObject);
var
cnt : integer;
begin
cnt := 1;
with cnt < 10000 do
begin
label1.caption := cnt;
cnt := cnt + 1;
end;
end;
쿠쿠쿠쿠.. 이렇게 했는데.. 끝에 값 9999이거만 찍혀여... ^^;;
왜그럴까여... 궁금해랑.... ㅠ.ㅠ
3
COMMENTS
-
-
yo`
> label1.caption := cnt;
요 코드 앞이나 뒤에 다음코드를 넣어보시고 해보시길...
Label1.Refresh;
그럼...휘리릭`
bLue bLood
김양미 wrote:
> 음..다름이 아니라...
>
> 버튼을 누르면 1부터 10000까지 증가하는 과정을 볼려구 하는데여...
>
> 이렇게 했는데여... ^^;;
>
> procedure TForm1.Button2Click(Sender: TObject);
> var
> cnt : integer;
>
> begin
> cnt := 1;
>
> with cnt < 10000 do
> begin
> label1.caption := cnt;
>
> cnt := cnt + 1;
> end;
>
> end;
>
> 쿠쿠쿠쿠.. 이렇게 했는데.. 끝에 값 9999이거만 찍혀여... ^^;;
>
> 왜그럴까여... 궁금해랑.... ㅠ.ㅠ
-
^^;;
(NOTICE) You must be logged in to comment on this post.
-
- 해후
- 2001.02.22 04:00
- 0 COMMENTS
- /
- 0 LIKES
-
- hobakpa
- •
- 2001.02.22 03:23
- 1 COMMENTS
- /
- 0 LIKES
-
고드름•2001.02.22 06:50안녕하세요? 고드름 김정입니다. 엑셀의 SHEET를 COM 객체로 연결해서 부르고 각 셀에 데이터를 넘기...
-
- 김양미
- •
- 2001.02.22 03:11
- 3 COMMENTS
- /
- 0 LIKES
-
뻐록이•2001.02.22 03:23김양미 wrote: > listBox에서 multiselect 한걸 표현하긴했는데.. > > multiselect된 것이 끝인지를 알...
-
(__)a•2001.05.04 03:30요렇게 해두 이쁠듯. procedure TForm1.Button1Click(Sender: TObject); var strtemp : String; ...
-
김양미•2001.02.22 18:26*^^*
-
-
^-_-^•2001.02.22 03:18yo` 흠..비베에서 어떤방식으로 하는지는 모르겟지만, 흠... 어느 변수에 몽땅 들어오나요?? 파이...
-
델파초짜..•2001.02.22 03:32흠.. 니의 답변 잘 봤습니다.. 콤보를 센타까면 되는군요.. 센타 깠는데 안내노면.. 때려도 돼나요^^; ...
-
조복기•2001.02.22 09:17안녕하세요~.. 비베의 레코스셋처럼 델파이에서도 쿼리를 오픈하면 데이타셋에서 그 값을 가지고 있...
-
-
- 진짜 초보.
- •
- 2001.02.22 02:55
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.02.22 03:23안녕하세요. 최용일입니다. .dfm파일을 직접 수정하시는것은 별루 좋은 방법이 아닙니다. 그렇게 하지 ...
-
- 써니
- •
- 2001.02.22 02:41
- 1 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.02.22 03:21yo` 흠...수정이라...UpdateSQL을 사용해보시죠...^^;; 강좌란같은데보면 쉬운 예가 있을껍니다. ...
-
- 김양미
- •
- 2001.02.22 02:37
- 3 COMMENTS
- /
- 0 LIKES
음..다름이 아니라... 버튼을 누르면 1부터 10000까지 증가하는 과정을 볼려구 하는데여... 이렇게 했는데여... ^^;; procedure TForm1.Button2Click(Sender: TObject); var cnt : integer; begin cnt := 1; with cnt < 10000 do begin la...-
최용일•2001.02.22 02:51안녕하세요. 최용일입니다. 윈도우에서 화면에 그리는 메세지는 우선순위가 가장 낮습니다. 빠른 속도를...
-
^-_-^•2001.02.22 02:40yo` > label1.caption := cnt; 요 코드 앞이나 뒤에 다음코드를 넣어보시고 해보시길... ...
-
김양미•2001.02.22 03:13^^;;
-
- 윤원미
- •
- 2001.02.22 02:26
- 2 COMMENTS
- /
- 0 LIKES
-
major•2001.02.22 22:35윤원미 wrote: > 현재 쓰고 있는 버전이 3.0인데 이것을 5.0으로 업그레이하고자 합니다. > 어떤 문제점...
-
비•2001.02.22 20:48윤원미 wrote: > 현재 쓰고 있는 버전이 3.0인데 이것을 5.0으로 업그레이하고자 합니다. > 어떤 문제점...
-
- 3107
- 2001.02.22 02:18
- 0 COMMENTS
- /
- 0 LIKES
-
-
최용일•2001.02.22 02:12안녕하세요. 최용일입니다. 정수형값이면 어느거나 가능합니다. Byte, Word, DWORD, LongInt, Intege...
-
-
- 뻐록이
- •
- 2001.02.22 02:02
- 1 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.02.22 03:24yo` 냠...질문이 다소 이해가 가질 않지만.... 일단 실행시 스크립트를 사용자입력으로 받아서 처리...
-
- 규
- 2001.02.22 01:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 구찌
- •
- 2001.02.22 01:45
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.02.22 02:19안녕하세요. 최용일입니다. 무슨 말씀인지 자세히 설명을 해 주셔야지 답변을 드릴텐데... 무슨 등록...
-
- 델처버
- •
- 2001.02.22 01:33
- 1 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.02.22 03:12yo` 질문이 헷갈리네여...^^;; > > s := ''; // 여기서 이건 왜 필요한가요 ? 그냥 변수 ...
-
- 김미희
- •
- 2001.02.24 23:25
- 1 COMMENTS
- /
- 0 LIKES
-
내컴•2001.02.22 02:38var i :integer; begin i := Random(100); // 0 부터 100까지의 랜덤한 정수 Edit1.Text := FormatF...
-
- 써니
- 2001.02.22 01:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파초짜..
- 2001.02.22 01:05
- 0 COMMENTS
- /
- 0 LIKES
-
- delcho
- 2001.02.24 23:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 바보사리
- •
- 2001.02.22 00:55
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2001.02.22 02:37안녕하세요. 최용일입니다. 써드파티 컴포넌트를 이용해보시라구 권해드리고 싶네요... 직접 구현하시는...
-
바보사리•2001.02.22 05:19최용일 wrote: > 안녕하세요. 최용일입니다. > > 써드파티 컴포넌트를 이용해보시라구 권해드리고 싶네...
-
최용일•2001.02.22 05:42여기 자료실에도 조복기님이 만드신 그리드가 있어요... 그 외에도 몇개 있구요... 여기 국외 링크에 보...
-
- 김태일
- 2001.02.22 00:41
- 0 COMMENTS
- /
- 0 LIKES
윈도우에서 화면에 그리는 메세지는 우선순위가 가장 낮습니다. 빠른 속도를 위하여..
그렇기 때문에 여러번의 페인트 메세지가 동시에 들어오면 화면에 그리는 거를 윈도우가
막아버립니다. 때문에 맨 나중에 들어오는 메세지만 처리가 되는거죠...
그럴땐 강제적으로 다시 그려주도록 해주시면 됩니다.
해보시면 아시겠지만 속도에서 많은 차이가 나고, 또한 깜빡거릴겁니다...
그리고 아래 while문(with가 아니라 while이겠죠?)보다는 for문을 사용하시는게 더 좋을거 같군요...
procedure TForm1.Button2Click(Sender: TObject);
var
Cnt : integer;
begin
Cnt := 1;
while Cnt < 10000 do
begin
Label1.Caption := IntToStr(Cnt);
Label1.Refresh; // 강제적으로 다시 그리기...
// = Application.ProcessMessages;
// = Label1.Repaint;
Cnt := Cnt + 1;
end;
end;
for문을 이용...
procedure TForm1.Button2Click(Sender: TObject);
var
Cnt : integer;
begin
for Cnt := 1 to 9999 do
begin
Label1.Caption := IntToStr(Cnt);
Label1.Refresh; // 강제적으로 다시 그리기...
// = Application.ProcessMessages;
// = Label1.Repaint;
end;
end;
^^ 항상 즐코하세요...
김양미 wrote:
> 음..다름이 아니라...
>
> 버튼을 누르면 1부터 10000까지 증가하는 과정을 볼려구 하는데여...
>
> 이렇게 했는데여... ^^;;
>
> procedure TForm1.Button2Click(Sender: TObject);
> var
> cnt : integer;
>
> begin
> cnt := 1;
>
> with cnt < 10000 do
> begin
> label1.caption := cnt;
>
> cnt := cnt + 1;
> end;
>
> end;
>
> 쿠쿠쿠쿠.. 이렇게 했는데.. 끝에 값 9999이거만 찍혀여... ^^;;
>
> 왜그럴까여... 궁금해랑.... ㅠ.ㅠ