procedure Button1Click(Sender...);
type
TSetWrk110=Record
OPENQ: Double;
end;
TSetParaf=Record
TRQTY: Double;
end;
var
SetWrk110 : TSetWrk110;
SetParaf : TSetParaf;
begin
SetParaf.TRQTY := 0.2;
SetWrk110.OPENQ := 0.2;
if ((SetParaf.TRQTY) > (Setwrk110.OPENQ)) then
ShowMessage('SetParaf.TRQTY 값이 크다')
else if ((SetParaf.TRQTY) = (Setwrk110.OPENQ)) then
ShowMessage('값이 같다');
end;
여러 프로시져에 연결 되어 있어서 sourc 첨부 파일로 첨부 했으니 살펴 보시고 답변 부탁드립니다... 아래 두개의 값이 보기에는 0.2 인데 프로그램에서인식을는 SetParaf.TRQTY가 크다고 인식 하네요? if (SetParaf.TRQTY) > (Setwrk110...
구창민
•
2002.11.13 02:33
안녕하세요 구창민입니다.
아래처럼 간단히 테스트 해 보실수 있겠네여.
procedure Button1Click(Sen...
아래처럼 간단히 테스트 해 보실수 있겠네여.
procedure Button1Click(Sender...);
type
TSetWrk110=Record
OPENQ: Double;
end;
TSetParaf=Record
TRQTY: Double;
end;
var
SetWrk110 : TSetWrk110;
SetParaf : TSetParaf;
begin
SetParaf.TRQTY := 0.2;
SetWrk110.OPENQ := 0.2;
if ((SetParaf.TRQTY) > (Setwrk110.OPENQ)) then
ShowMessage('SetParaf.TRQTY 값이 크다')
else if ((SetParaf.TRQTY) = (Setwrk110.OPENQ)) then
ShowMessage('값이 같다');
end;
만약 쿼리의 결과값이 정상적으로 둘다 0.2 였다면
결과는 값이 같아야 합니다.
다시 한번 차근 차근 디버깅 해 보시길 바랍니다.
그리고 참고로, type 문은 형선언 이므로, 한번만 쓰시면 됩니다. ^_^;
var 를 쓰는것 처럼 말이지요.
그럼~ 항상 즐거운 프로그래밍 하시길~~