Q&A
// 건수 총합계
TotCnt := Query2.FieldByName('CNT').AsInteger
+ Query3.FieldByName('CNT').AsInteger ;
TotSon := Query2.FieldByName('SONRO').AsInteger;
While (TotCnt = 0) and (TotSon = 0) do
begin
Query2.Next;
Query3.Next;
if Query2.Eof then
begin
PrintBand := False;
Exit;
end;
TotCnt := Query2.FieldByName('CNT').AsInteger
+ Query3.FieldByName('CNT').AsInteger ;
TotSon := Query2.FieldByName('SONRO').AsInteger;
End;
For i := 0 To 1 do
begin
V1[i] := 0;
V2[i] := 0;
End;
// 금액
V1[0] := Query2.FieldByName('Base1').AsInteger;
V1[1] := Query3.FieldByName('water').AsInteger; // 과년도
// 건수
V2[0] := Query2.FieldByName('Cnt1').AsInteger;
V2[1] := Query3.FieldByName('Cnt').AsInteger; // 과년도
Cnt0.Caption := FormatFloat('#,##0' , V2[0]); <========================
Cnt1.Caption := FormatFloat('#,##0' , V2[1]); <=========================
Sun0.Caption := FormatFloat('#,##0' , V1[0]); <========================
Sun1.Caption := FormatFloat('#,##0' , V1[1]); <=======================
Query3.Next;
실행시키면 sun0.caption 과 cnt0.caption 은
제대루 나오구 cnt0.caption , cnt1.caption 은 모조건 0으로 찍힙니다
글구 에러메세지두 없습니다
그래서 디버깅을 했습니다
화살표한소스에서 디버깅시 배열에는 정확한값이 들어가는데
caption 을 찍어보면 풍선도뭄말로 Access vilotion
어쩌구 찍히구
invaliad Floating point operation 이라는 에러메세지가찍힙니다
(이 에러는 0으로 나눌때 나는걸로 알구있는데 0으로 나눈적도 없거든여...)
end;
- 토요일에 날 고생시키는 소스(도무지 이해가...)
// 건수 총합계
TotCnt := Query2.FieldByName('CNT').AsInteger
+ Query3.FieldByName('CNT').AsInteger ;
TotSon := Query2.FieldByName('SONRO').AsInteger;
While (TotCnt = 0) and (TotSon = 0) do
begin
Query2.Next;
Query3.Next;
if Query2.Eof then
begin
PrintBand := False;
Exit;
end;
TotCnt := Query2.FieldByName('CNT').AsInteger
+ Query3.FieldByName('CNT').AsInteger ;
TotSon := Query2.FieldByName('SONRO').AsInteger;
End;
For i := 0 To 1 do
begin
V1[i] := 0;
V2[i] := 0;
End;
// 금액
V1[0] := Query2.FieldByName('Base1').AsInteger;
V1[1] := Query3.FieldByName('water').AsInteger; // 과년도
// 건수
V2[0] := Query2.FieldByName('Cnt1').AsInteger;
V2[1] := Query3.FieldByName('Cnt').AsInteger; // 과년도
Cnt0.Caption := FormatFloat('#,##0' , V2[0]); <========================
Cnt1.Caption := FormatFloat('#,##0' , V2[1]); <=========================
Sun0.Caption := FormatFloat('#,##0' , V1[0]); <========================
Sun1.Caption := FormatFloat('#,##0' , V1[1]); <=======================
Query3.Next;
실행시키면 sun0.caption 과 cnt0.caption 은
제대루 나오구 cnt0.caption , cnt1.caption 은 모조건 0으로 찍힙니다
글구 에러메세지두 없습니다
그래서 디버깅을 했습니다
화살표한소스에서 디버깅시 배열에는 정확한값이 들어가는데
caption 을 찍어보면 풍선도뭄말로 Access vilotion
어쩌구 찍히구
invaliad Floating point operation 이라는 에러메세지가찍힙니다
(이 에러는 0으로 나눌때 나는걸로 알구있는데 0으로 나눈적도 없거든여...)
end;
5
COMMENTS
-
-
배열의 선언시 크기를 정확히 설정하셨나요?
0번째는 값이 있고 1번째에 에러라면 의심할것은 이곳뿐...
바라미~~
hnc wrote:
>
> // 건수 총합계
> TotCnt := Query2.FieldByName('CNT').AsInteger
> + Query3.FieldByName('CNT').AsInteger ;
> TotSon := Query2.FieldByName('SONRO').AsInteger;
>
> While (TotCnt = 0) and (TotSon = 0) do
> begin
> Query2.Next;
> Query3.Next;
> if Query2.Eof then
> begin
> PrintBand := False;
> Exit;
> end;
> TotCnt := Query2.FieldByName('CNT').AsInteger
> + Query3.FieldByName('CNT').AsInteger ;
> TotSon := Query2.FieldByName('SONRO').AsInteger;
> End;
>
> For i := 0 To 1 do
> begin
> V1[i] := 0;
> V2[i] := 0;
> End;
>
> // 금액
> V1[0] := Query2.FieldByName('Base1').AsInteger;
> V1[1] := Query3.FieldByName('water').AsInteger; // 과년도
>
> // 건수
> V2[0] := Query2.FieldByName('Cnt1').AsInteger;
> V2[1] := Query3.FieldByName('Cnt').AsInteger; // 과년도
>
> Cnt0.Caption := FormatFloat('#,##0' , V2[0]); <========================
> Cnt1.Caption := FormatFloat('#,##0' , V2[1]); <=========================
> Sun0.Caption := FormatFloat('#,##0' , V1[0]); <========================
> Sun1.Caption := FormatFloat('#,##0' , V1[1]); <=======================
> Query3.Next;
>
> 실행시키면 sun0.caption 과 cnt0.caption 은
> 제대루 나오구 cnt0.caption , cnt1.caption 은 모조건 0으로 찍힙니다
> 글구 에러메세지두 없습니다
>
> 그래서 디버깅을 했습니다
> 화살표한소스에서 디버깅시 배열에는 정확한값이 들어가는데
> caption 을 찍어보면 풍선도뭄말로 Access vilotion
> 어쩌구 찍히구
> invaliad Floating point operation 이라는 에러메세지가찍힙니다
> (이 에러는 0으로 나눌때 나는걸로 알구있는데 0으로 나눈적도 없거든여...)
>
>
>
>
>
> end;
>
>
-
배열 크기는 바로 선언됐구....
글구 디버깅시 배열부분에서는 값을 바로 일어 옵니다..
그런데 배열값을 라벨에 찍을때 디버깅시에는 에러 실행시에는 0으로 돼거든여...
-
그런데 굳이 배열에 옮겼다가 캡션으로 옮기는 이유는 뭔가요?
배열을 거치지 말고 해보시지요.
바라미~~
hnc wrote:
> 배열 크기는 바로 선언됐구....
> 글구 디버깅시 배열부분에서는 값을 바로 일어 옵니다..
> 그런데 배열값을 라벨에 찍을때 디버깅시에는 에러 실행시에는 0으로 돼거든여...
-
질문은 간단하게 보이려구 배열을 작게 사용했구...
원래소스에는 찍으려는 라벨이 많고
각 결과치끼리 계산하는부분이 많기때문에 배열를 사용했습니다
(아니면 계산할때마다 FieldByname......을사용하면 복잡하잖아여...)
그외 꼭 배열을 사용해야하는이유도있구여....
근데 배열을 사용해두 에러가 날 이유는 없잖아여....
근데 제가 원하는건 에러를 피하구 싶은게 아니구 에러의 원인을 알구 싶거든여... ...
(NOTICE) You must be logged in to comment on this post.
-
- 조성택
- 2001.01.28 20:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 조성택
- 2001.01.28 20:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 이명영
- •
- 2001.01.28 11:17
- 2 COMMENTS
- /
- 0 LIKES
-
김선호•2001.02.01 20:37저의 경우엔 델파이 3, 4 버전으로 시리얼 통신 프로그램을 윈98에서 작성하고 윈2000에 설치해서 정상 ...
-
eewook•2001.01.29 02:28이명영 wrote: > 프로그램 환경 > O/S 환경 : Windows 2000 > Delphi version 5.0 > 상기 환경에서 RS2...
-
- cico
- 2001.01.28 09:51
- 0 COMMENTS
- /
- 0 LIKES
-
- delphilove
- •
- 2001.01.28 08:40
- 1 COMMENTS
- /
- 0 LIKES
-
정대연•2001.01.28 10:42delphilove wrote: > > 프로그램을 샐행하거나.. 프로젝트를 열때 마다 사용자 사용자와 암호를 묻는 ...
-
- 궁금점
- 2001.01.28 11:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 이강수
- 2001.01.28 08:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초
- 2001.01.28 06:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 최명훈
- 2001.01.28 05:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 몰겄당
- 2001.01.28 03:40
- 0 COMMENTS
- /
- 0 LIKES
-
- crosszzang
- 2001.01.28 02:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보.
- 2001.01.28 02:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 멀더
- 2001.01.28 00:47
- 0 COMMENTS
- /
- 0 LIKES
-
- hnc
- •
- 2001.01.28 00:40
- 5 COMMENTS
- /
- 0 LIKES
// 건수 총합계 TotCnt := Query2.FieldByName('CNT').AsInteger + Query3.FieldByName('CNT').AsInteger ; TotSon := Query2.FieldByName('SONRO').AsInteger; While (TotCnt = 0) and (TotSon = 0) do begin Query2.Next; Query3.Next; ...-
아폴론•2001.01.29 09:19Query2.FieldByName('CNT').AsInteger; 를 Query2.FieldByName('CNT').AsFloat; 으로 함 해보져 모든 ...
-
바람개비•2001.01.28 01:04배열의 선언시 크기를 정확히 설정하셨나요? 0번째는 값이 있고 1번째에 에러라면 의심할것은 이곳뿐... ...
-
hnc•2001.01.28 01:08배열 크기는 바로 선언됐구.... 글구 디버깅시 배열부분에서는 값을 바로 일어 옵니다.. 그런데 배열값을...
-
바람개비•2001.01.28 01:13그런데 굳이 배열에 옮겼다가 캡션으로 옮기는 이유는 뭔가요? 배열을 거치지 말고 해보시지요. 바라미...
-
hnc•2001.01.28 01:32질문은 간단하게 보이려구 배열을 작게 사용했구... 원래소스에는 찍으려는 라벨이 많고 각 결과치끼리...
-
- 송길수
- 2001.01.28 00:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2001.01.28 00:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 오승섭
- 2001.01.28 00:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금이
- •
- 2001.01.28 00:07
- 2 COMMENTS
- /
- 0 LIKES
-
김현민•2001.01.29 21:08궁금이 wrote: > 윈도우즈의 [파일로 인쇄]한 후 인쇄를 누르면 프린트 파일이 생성되는데 > 이 파일을 ...
-
궁금이•2001.01.30 20:58답변 감사합니다. 역시 이곳은 가려운곳을 시원히 긁어주는군요. 훌륭합니다.
-
- 델초보
- •
- 2001.01.27 23:34
- 1 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.01.27 23:35델초보 wrote: > Delphi3로 출하지시,세금계산서 출력 프로그램을 작성하였습니다 > DB insert등 모든처...
-
- 델파이 완전초보자
- 2001.01.27 22:53
- 0 COMMENTS
- /
- 0 LIKES
Query2.FieldByName('CNT').AsFloat; 으로 함 해보져
모든 대입을 다 Float으로 고쳐보고 한번 해보세요. 그리고 결과를 한번 보죠.