Q&A

  • 다시 올립니다???
여러 프로시져에 연결 되어 있어서 sourc 첨부 파일로 첨부 했으니 살펴
보시고 답변 부탁드립니다...

아래 두개의 값이  보기에는 0.2 인데 프로그램에서인식을는
SetParaf.TRQTY가 크다고 인식 하네요?

if (SetParaf.TRQTY)  > (Setwrk110.OPENQ) then
  error message
1  COMMENTS
  • Profile
    구창민 2002.11.13 02:33
    안녕하세요 구창민입니다.

    아래처럼 간단히 테스트 해 보실수 있겠네여.

    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 를 쓰는것 처럼 말이지요.

    그럼~ 항상 즐거운 프로그래밍 하시길~~