Q&A
- Table의 RecodCount를 하는데 안되요.
간단하게 테이블의 레코드 갯수를 읽어서
테이블이 로딩되는 것을 프로그래스 바로 표현하려고 하는데
테이블 레코드 카운팅에서 무한루프에 빠져버렸는지
값이 리턴 안되고 있습니다.
어떻게 해결해야 할까요?
with ProgressBar1 do
begin
Min := 0;
Max := Table1.RecordCount;
Table1.First;
i := 0;
for i:=Min to Max do
begin
Position := i;
Table1.Next;
end;
end;
이렇게 작성했습니다.
해결책을 알려주세요. --;
테이블이 로딩되는 것을 프로그래스 바로 표현하려고 하는데
테이블 레코드 카운팅에서 무한루프에 빠져버렸는지
값이 리턴 안되고 있습니다.
어떻게 해결해야 할까요?
with ProgressBar1 do
begin
Min := 0;
Max := Table1.RecordCount;
Table1.First;
i := 0;
for i:=Min to Max do
begin
Position := i;
Table1.Next;
end;
end;
이렇게 작성했습니다.
해결책을 알려주세요. --;
3
COMMENTS
-
-
작성 하신 대로 해서 버그를 잡으면요
for i := MIN to MAX - 1 do ....
하면 되구요...
보통은 이런 식으로 많이 씁니다...
While not Table.EOF do begin
.....
Next;
end;
-
while not Table.Eof도 써봤는데... ^^;
그것도 무한루프로 빠지는지 동작을 안하더라구요.
(NOTICE) You must be logged in to comment on this post.
-
- 배정은
- •
- 2004.11.13 04:52
- 1 COMMENTS
- /
- 0 LIKES
-
착한천사•2004.11.25 02:05착한천사 김경록입니다.. 흠.. 일단 질문 내용을 보면, 빠져 있는게 있어서.. 그 내용이 궁금하군요... ...
-
- 노명환
- 2004.11.13 03:06
- •
- 0 COMMENTS
- /
- 0 LIKES
-
- 이진우
- 2004.11.13 02:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 송기원
- 2004.11.13 00:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 모영철
- •
- 2004.11.13 00:28
- 4 COMMENTS
- /
- 0 LIKES
-
나그네•2004.11.13 20:10이거 선언해 주시고요 type TCustomDBGridCracker = class(TCustomDBGrid); DBGrid1DrawC...
-
모영철•2004.11.15 18:29
-
석주현•2004.11.13 02:24근데 전 맨날 좀 의야한게 포커스란게 Grid에서 보면 셀렉트 된거랑 같잖아요.. ^^ 그래서 그냥 if (...
-
모영철•2004.11.13 03:33
-
- 델피언
- •
- 2004.11.13 00:19
- 2 COMMENTS
- /
- 0 LIKES
-
석주현•2004.11.13 02:37음 버젼이 틀려서 좀 그런데요.. PrepareReport 를 해주고 프린트 해야지 되는걸로 알고 있습니다. ^^
-
델피언•2004.11.13 17:51frxreport1.preparereport(true); frxreport1.print; 하니 되네요 감사합니다.
-
- 김원일
- •
- 2004.11.12 23:42
- 1 COMMENTS
- /
- 0 LIKES
-
석주현•2004.11.13 03:01이렇게 해보니 잘되네요.. ^^ ////////////////////////////// procedure TForm1.QRPreview1MouseWheel...
-
- 노명환
- •
- 2004.11.12 22:53
- •
- 2 COMMENTS
- /
- 0 LIKES
-
서기원•2004.11.12 23:40퀵리포트 컴포넌트 중에 QRPreview라고 있던데 그거 사용하시면 되지 않을까요? 즐푸하세요~
-
노명환•2004.11.12 23:50당연히 프리뷰컴퍼넌트를 사용해서 했습니다. 그런데 제가 하니까 Priview폼이 떠 버려서 그런건데요.. ...
-
- 하영호
- •
- 2004.11.12 22:53
- 1 COMMENTS
- /
- 0 LIKES
-
정정봉•2004.11.12 23:32DBGridEh 컴포넌트를 쓰시면 해결될것 같네요. 예전에 자료실에서 다운받았는데 지금도 있는지는....
-
- 김준연
- •
- 2004.11.12 22:37
- 1 COMMENTS
- /
- 0 LIKES
-
오병주•2004.11.12 23:34그러면 레코드를 이용하세요... TYPE TTag= Record id &nb...
-
- 박찬
- •
- 2004.11.12 18:46
- 6 COMMENTS
- /
- 0 LIKES
-
손광현•2004.11.12 19:13
-
박찬•2004.11.12 19:22
-
손광현•2004.11.12 19:44
-
박찬•2004.11.12 19:49
-
손광현•2004.11.12 19:51
-
박찬•2004.11.12 21:34
-
- 황하성
- •
- 2004.11.12 18:41
- 3 COMMENTS
- /
- 0 LIKES
간단하게 테이블의 레코드 갯수를 읽어서 테이블이 로딩되는 것을 프로그래스 바로 표현하려고 하는데 테이블 레코드 카운팅에서 무한루프에 빠져버렸는지 값이 리턴 안되고 있습니다. 어떻게 해결해야 할까요? with ProgressBar1 do begi...-
석주현•2004.11.12 19:13뭐 이런 식으로하면 됩니다.. ^^ ///////////// procedure TForm2.Button1Click(Sender: TObject); ...
-
㉳㉥ㅗ㉣ㅐ㉧ㅛ•2004.11.12 18:54작성 하신 대로 해서 버그를 잡으면요 for i := MIN to MAX - 1 do .... 하면 ...
-
황하성•2004.11.12 19:00while not Table.Eof도 써봤는데... ^^; 그것도 무한루프로 빠지는지 동작을 안하더라구요.
-
- 박원용
- •
- 2004.11.12 17:43
- 3 COMMENTS
- /
- 0 LIKES
-
오익환•2004.11.12 19:07TObjectPrinter설치에 무슨 문제가 있는지 알려주시면 도와드릴 수 있을 것 같은데요.
-
박원용•2004.11.12 19:34objectprinterv7.pas 파일이 없다면서 에러가 납니다. ----------------
-
오익환•2004.11.12 22:24Component는 File속에 있는 RegOPrinter.exe로 설치 하여야 합니다. 설치후 TObjectPrinter자료실에 ...
-
- 장영진
- •
- 2004.11.12 09:41
- 1 COMMENTS
- /
- 0 LIKES
-
모영철•2004.11.12 19:50네 할수 있습니다. 포인터를 쓰시는것도 괜찮을거 같은데요.. 전에 작업하다 이리저리 걸리는게 많아...
-
- 가우나라
- 2004.11.12 03:09
- 0 COMMENTS
- /
- 0 LIKES
-
- yskwon
- 2004.11.12 02:32
- 0 COMMENTS
- /
- 0 LIKES
-
- ㉳㉥ㅗ㉣ㅐ㉧ㅛ
- •
- 2004.11.12 02:00
- 4 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2004.11.12 02:36안녕하세요 하얀까마귀입니다. 어찌 답변을 하라시는건지. ㅠㅠ 난감하군요. ^^ 일단 안되니까. 그...
-
㉳㉥ㅗ㉣ㅐ㉧ㅛ•2004.11.15 20:03코딩에 이상이 없습니다...로직상으로는 근데 QuickReport 자체가 생성이 안되여... 왜 그런지... ...
-
하얀까마귀•2004.11.17 11:07안녕하세요 하얀까마귀 입니다. ㅠㅠ 그냥 퀵이 생성이 안되다고만 하시면 원인을 알수가 없...
-
석주현•2004.11.17 17:45퀵리포트는 다른 폼처럼 보여지는게 아니라 디자인 타임에는 보이다가 런타임시에는 프린트나 아니면 ...
-
- 강신구
- •
- 2004.11.12 01:14
- 3 COMMENTS
- /
- 0 LIKES
-
뚜까•2004.11.12 01:41예전에 받아논건데 적당한거 골라서 쓰세요.... 엑셀 사용시 셀들을 복잡하게 제어해야할 때 필요한...
-
강신구•2004.11.12 02:06답변에 감사드립니다.. 그런데.. 셀형식을 텍스트로 지정하는 방법에 대해서는 없군요.. 아쉽습니다..
-
작은호롱•2004.11.12 02:26소스중에서 다음부분이 텍스트형식으로 지정하는 부분합니다. ===> Format := '@'; 즐프하세요...
-
- 김성현
- •
- 2004.11.11 22:44
- 1 COMMENTS
- /
- 0 LIKES
-
송기원•2004.11.11 23:34ISAPI로 제작하시면 가능하고도 남습니다. DB연결은 ADO로 처리하시면 별도의 세션문제걱정은 안 하셔도 ...
-
- 김종곤
- 2004.11.11 22:30
- 0 COMMENTS
- /
- 0 LIKES
/////////////
procedure TForm2.Button1Click(Sender: TObject);
begin
ProgressBar1.Position := 0;
ProgressBar1.Repaint;
ProgressBar1.Max := Table1.RecordCount;
Table1.First;
while not Table1.Eof do
begin
ProgressBar1.Position := Table1.RecNo;
Sleep(100);
Table1.Next;
end;
end;