Q&A
- 계산식의 차이점좀 알려 주세요???
어제 답변은 고마웠습니다????
아래 소스에서 보시면 값을 직접 입력했을때와 변수로 계산했을때
값은 똑 같은데 프로그램에서는 틀리다구 인식하네요???
왜 그런지 모르겠네요?
procedure TForm1.Button1Click(Sender: TObject);
Type
TSetWrk110=Record
OPENQ: double;
end;
TSetParaf=Record
TRQTY: double;
end;
var
SetWrk110 : TSetWrk110;
SetParaf : TSetParaf;
a,b,c: double;
begin
a:= 267;
b:= 0;
c:= 266.8;
SetParaf.TRQTY := 0.2;
SetWrk110.OPENQ := ((a+b)-c);
if ((SetParaf.TRQTY) > (Setwrk110.OPENQ)) then
ShowMessage('SetParaf.TRQTY 값이 크다')
else if ((SetParaf.TRQTY) = (Setwrk110.OPENQ)) then
ShowMessage('값이 같다');
end;
아래 소스에서 보시면 값을 직접 입력했을때와 변수로 계산했을때
값은 똑 같은데 프로그램에서는 틀리다구 인식하네요???
왜 그런지 모르겠네요?
procedure TForm1.Button1Click(Sender: TObject);
Type
TSetWrk110=Record
OPENQ: double;
end;
TSetParaf=Record
TRQTY: double;
end;
var
SetWrk110 : TSetWrk110;
SetParaf : TSetParaf;
a,b,c: double;
begin
a:= 267;
b:= 0;
c:= 266.8;
SetParaf.TRQTY := 0.2;
SetWrk110.OPENQ := ((a+b)-c);
if ((SetParaf.TRQTY) > (Setwrk110.OPENQ)) then
ShowMessage('SetParaf.TRQTY 값이 크다')
else if ((SetParaf.TRQTY) = (Setwrk110.OPENQ)) then
ShowMessage('값이 같다');
end;
6
COMMENTS
-
-
Currency 타입을 사용하시면되기는합니다만 소수4자리밖에 계산 못합니다.
꼭 Double 타입으로 해야만한다면
필요한 소수자리에서 반올림해서 계산하시면됩니다.
-
다음의 코드를 돌려보시면 이해하실수있을껍니다.
procedure TForm1.Button1Click(Sender: TObject);
Type
TSetWrk110=Record
OPENQ: double;
end;
TSetParaf=Record
TRQTY: double;
end;
var
SetWrk110 : TSetWrk110;
SetParaf : TSetParaf;
a,b,c: double;
begin
a:= 267.0;
b:= 0.0;
c:= 266.8;
SetParaf.TRQTY := 0.2;
SetWrk110.OPENQ := ((a+b)-c);
Memo1.Lines.Add(Format('%e', [SetParaf.TRQTY]));
Memo1.Lines.Add(Format('%e', [SetWrk110.OPENQ]));
if ((SetParaf.TRQTY) > (Setwrk110.OPENQ)) then
ShowMessage('SetParaf.TRQTY 값이 크다')
else if ((SetParaf.TRQTY) = (Setwrk110.OPENQ)) then
ShowMessage('값이 같다')
else if ((SetParaf.TRQTY) < (Setwrk110.OPENQ)) then
ShowMessage('SetParaf.TRQTY 값이 작다')
end;
-
코드 돌려보니까 글네엽.
어..왜저러지? ^^
-
빙구님 말씀대로 라면 양쪽의 값이 1 이와도 한쪽이 크다고 나와야 되지
않을까요???
-
비교 연산자가 값만 비교를 행하는게 아니고 포인터값에 대한 연산도 행하는걸로 알고 있습니다. 따라서 님이 구조체를 사용하여 그 멤버를 비교함으로써 포인터주소값에 대한 비교가 이루어 졌다고 봅니다.
SetWrk110보다 SetParaf가 나중에 변수로 선언되므로써, SetParaf는 더 주소값이 큰스택공간에 메모리가 할당되기 때문에 포인터값으로 봤을땐 SetParaf가 항상 크다 라고 나오는듯 합니다.
(NOTICE) You must be logged in to comment on this post.
-
- 영면
- •
- 2002.11.14 00:49
- 1 COMMENTS
- /
- 0 LIKES
-
열심히•2002.11.19 04:11테이블 키를 바꾼다는게 무슨 뜻이지요?? PK를 말씀하시는 건가여?? 그걸 바꾸셨다구요?? 그게 가능...
-
- 김충식
- 2002.11.14 00:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 황은영
- •
- 2002.11.14 00:32
- 3 COMMENTS
- /
- 0 LIKES
-
머슴•2002.11.14 18:42코드같은 필드인 경우 DB에 저장할때 코드를 입력하지 코드명을 입력하지는...
-
황은영•2002.11.14 20:41답변 갑사드립니다 자꾸 초보적인 질문을 드립니다, calc_x 이런 가상 필드는 어떻게 만드는지? OnCal...
-
이광기•2002.11.30 20:44--- Calc Field 만드는 방법.... ^^;; TQuery Component 더블클릭 -> 마우스 우측 버튼 -&...
-
- 황은영
- •
- 2002.11.13 23:29
- 1 COMMENTS
- /
- 0 LIKES
-
KDDG_ZZOM•2002.11.14 00:20cnt는 integer값인데... Query1.FieldByName('cnt').AsInteger; 이렇게 해보세요...
-
- 차력사 김무옥
- •
- 2002.11.13 23:26
- 1 COMMENTS
- /
- 0 LIKES
-
DelChoBo•2002.11.14 00:01update member set B = A
-
- 물고기나라
- 2002.11.13 22:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2002.11.13 21:30
- 2 COMMENTS
- /
- 0 LIKES
-
물고기나라•2002.11.13 21:54프린트는 노가다라서 별로 안좋아하는데 ^^; 우선 지원합니다. 생각외로 다양하게 구성할 수 있습니다. ...
-
왕초보•2002.11.14 00:46사선이라하면 선모양이 아니라 직사각형에 가로놓은 선을 말하는 것입니다.
-
- 김보성
- •
- 2002.11.13 21:22
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•2002.11.13 22:41자료실에 보면 이경문님께서 올려놓으신 화상/음성 컴포넌트가 있는것 같습니다. 저는 사용해보지 않아서 ...
-
- 코난
- 2002.11.13 20:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 아싸로니
- •
- 2002.11.13 20:23
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2002.11.13 20:41안녕하세요. 최용일입니다. 잘 되는데요... 쩝~ RegFile Name에 풀패스를 줘서 해보세요... ...
-
아싸로니•2002.11.13 22:02답변 감사드립니다. Regfill Name을 풀패스로 수정해서 해봐도 안되길래 이것저것 바꿔보다가 SW_HID...
-
- 강동혁
- 2002.11.13 20:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 김동완
- •
- 2002.11.13 19:56
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2002.11.13 20:47안녕하세요. 최용일입니다. 그냥 바꾸시면 될텐데요... PopupMenu1.Items[0].Caption := '메뉴'; ...
-
김동완•2002.11.13 21:04답변감사합니다... 보니깐 역쉬 넘 쉬운건뎅... 눈이 오네요.. ^^ 좋은 추억 만드세요... 최용일님 맨...
-
- 송승호
- •
- 2002.11.13 19:52
- 3 COMMENTS
- /
- 0 LIKES
-
최은석•2002.11.13 22:58FormatFloat('#,##0',값); 요 넘을 사용해보시져...
-
머슴•2002.11.13 21:45FormatFloat('#,##0)으로 변경해야 하지 않나요?
-
송승호•2002.11.14 01:30
-
- 김지훈
- •
- 2002.11.13 19:17
- 6 COMMENTS
- /
- 0 LIKES
어제 답변은 고마웠습니다???? 아래 소스에서 보시면 값을 직접 입력했을때와 변수로 계산했을때 값은 똑 같은데 프로그램에서는 틀리다구 인식하네요??? 왜 그런지 모르겠네요? procedure TForm1.Button1Click(Sender: TObject); Type TS...-
김지훈•2002.11.13 21:16진짜루 틀리네요! 답변 감사합니다.
-
이영우•2002.11.13 21:32Currency 타입을 사용하시면되기는합니다만 소수4자리밖에 계산 못합니다. 꼭 Double 타입으로 해야만한...
-
이영우•2002.11.13 20:40다음의 코드를 돌려보시면 이해하실수있을껍니다. procedure TForm1.Button1Click(Sender: TObject)...
-
빙구•2002.11.13 20:31코드 돌려보니까 글네엽. 어..왜저러지? ^^
-
김지훈•2002.11.13 20:12빙구님 말씀대로 라면 양쪽의 값이 1 이와도 한쪽이 크다고 나와야 되지 않을까요???
-
빙구•2002.11.13 19:33비교 연산자가 값만 비교를 행하는게 아니고 포인터값에 대한 연산도 행하는걸로 알고 있습니다. 따라서 님...
-
-
- 델사랑
- •
- 2002.11.13 19:02
- 3 COMMENTS
- /
- 0 LIKES
-
물고기나라•2002.11.13 20:20한글을 입력한다면 TEdit 박스로 입력을 받으실거 같은데 모드전환 프로시져를 따로 두시지 말고 해당 컴...
-
델사랑•2002.11.13 21:01프로퍼티에서 한글모드로 바꾸면 숫자를 입력할때 뛰어쓰기가 되요 그래서 프로퍼티로 바꾸면 안됩니다 3...
-
물고기나라•2002.11.13 21:44ImeMode 프라퍼티를 스몰한글(imSHanguel)로 지정하면 문자나 숫자나 안떨어져요
-
- 전종대
- 2002.11.13 19:00
- 0 COMMENTS
- /
- 0 LIKES
-
- Galaxy
- •
- 2002.11.13 18:31
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2002.11.13 20:35안녕하세요. 최용일입니다. 이건 델파이 뿐만 아니라 다른 프로그램들도 종종 이런 문제가 발생합니다. ...
-
Galaxy•2002.11.13 20:40
-
- 김보성
- •
- 2002.11.13 12:13
- 1 COMMENTS
- /
- 0 LIKES
-
윤종경•2002.11.13 18:22컴퍼넌트 설치 안하셨네요... trxlabel은 RX Component, tflatbutton, tflatpanel은 FlatStyle Component...
-
- 전덕성
- •
- 2002.11.13 07:52
- 1 COMMENTS
- /
- 0 LIKES
-
물고기나라•2002.11.13 20:10답변이 될런지 모르겠네요. 엊그제 윈2000으로 os바꿨다가 같은 델4인데 컴파일이 안되더라구요. 에러...
답변 감사합니다.