Q&A

  • Invalid floating point operation 에 대해..
안녕하세요.
Jijang02에서 Land02에 존재하는 H_num(사람일련번호)을 제외한 H_NUM을 가지고(차집합)
통지문과 내역을 출력할려고 하는데 통지문 부분은 에러없이 출력이 되는데 내역부분에서 에러가 납니다.

에러 내용은 "Invalid floating point operation"이라고 나옵니다.

//아래는 소스입니다.
부탁드립니다.


//*************************************************//

        //Jijang02에만 존재하는 h_num 구하기
        with Query1 do begin
          Close;
          SQL.Clear;
          SQL.Add(' SELECT H_NUM FROM JIJANG02  ');
          SQL.Add(' WHERE C_NUM =:C_NUM         ');
          SQL.Add(' MINUS                       ');
          SQL.Add(' SELECT H_NUM FROM LAND02    ');
          SQL.Add(' WHERE C_NUM =:C_NUM         ');
          SQL.Add(' ORDER BY H_NUM              ');
          Prepare;
          ParamByName('C_NUM').AsString := c_num.text;
          Open;
          First;

          While Not EOF do begin

              //통지문
              FNews_test := TFNews_test.Create(Application);
              FNews_test.QLaddr01.Caption      := edtaddr.Text;
              FNews_test.QLname01.Caption      := edtname.Text;
              FNews_test.Qtnum.Caption         := edttext.Text;
              FNews_test.QL_state_date.Caption := start_date.Text;
              FNews_test.QLsaup01.Caption      := c_name.Text;
              FNews_test.QLsaup02.Caption      := c_name.Text;
              FNews_test.QL_ji_start.Caption   := ji_start.Text;
              FNews_test.QL_ji_end.Caption     := ji_end.Text;
              FNews_test.QLaddr02.Caption      := edtaddr.Text;
              FNews_test.QLname02.Caption      := edtname.Text;
              FNews_test.QLpost01.Caption      := edtpost.Text;
              FNews_test.Qrynews.Open;
              FNews_test.qr.Print;

              //내역
              FNewsJijang_test := TFNewsJijang_test.Create(Application);
              FNewsJijang_test.QryJijang.ParamByName('c_num').AsString := c_num.text;
             FNewsJijang_test.QryJijang.ParamByName('h_num').AsString := Query1.FieldByName('H_NUM').AsString;
              FNewsJijang_test.QryJijang.Open;
              FNewsJijang_test.qr.Print;

            Next;

          end;   //end while

        end;     //end with
0  COMMENTS
    • 김민수
    • 2003.02.12 03:07
    • 1 COMMENTS
    • /
    • 0 LIKES
    • gokick
      2003.02.12 19:38
      동적으로 만드시지요 특정프로시저~~~ var   vquery: TQuery; begin   vquery ...
    • 이상협
    • 2003.02.12 02:43
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 김용호
    • 2003.02.12 02:14
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 이희진
      2003.02.12 03:54
      procedure TDOWNLOAD.StreamToVariant(Stream: TStream; var v: olevariant); var   p : point...
    • 최용일
      2003.02.12 02:25
      안녕하세요. 최용일입니다. VarArrayLock쓰시면 될건데요... 이 함수가 리턴하는 값이 데이터가 있는...
    • 김용호
      2003.02.12 08:56
      .
    • 김영남
    • 2003.02.12 01:39
    • 2 COMMENTS
    • /
    • 0 LIKES
    • KDDG_ZZOM
      2003.02.12 01:43
      혹시 그림파일을 출력하나요? 그림파일을 출력할때 원본그림의 해상도를 낮게 해서 해보세요.... 저...
    • 김영남
      2003.02.12 02:25
      답변 감사합니다...^^ 이미지는 없습니다... 단지 2장 이상 출력이 되는 경우가 그런듯 한데... 1...
    • 김보영
    • 2003.02.12 01:08
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 김동환
      2003.02.12 23:33
      음...일단 SubType 프로퍼티를 "mtHtml" 로 선언하셔야 하구요... NMSTMP.PostMessage.Body부분을 HTM...
    • 초보에요.
      2003.02.12 03:45
      냉무...
    • 박장용
      2003.02.12 01:54
      방법1> widestring타입으로 복사하여 Copy함수를 쓰시는 방법 여기서 s가 '하나두울셋'일때 결과는 '하...
    • KDDG_ZZOM
      2003.02.12 00:53
      예전에 김영대씨홈피에서 뽀리친것같네요...^^ 여기 팁란이나 예전 질답란을 검색해도 나올것같은데... ...
    • 구창민
      2003.02.11 22:26
      구창민입니다. 항상 'T.F.. ' 요 항목이 같이 존재한다는 전제하에 아래 처럼 하면 될거 같네여, ...
    • 곽상호
    • 2003.02.11 21:02
    • 1 COMMENTS
    • /
    • 0 LIKES
    • gokick
      2003.02.12 19:30
      BDE에서 Oracle Drivers에 보면 BLOB에 관련된 설정이 나옵니다.. 그부분을 변경하시면 좀더 커다란 이...
    • 김인수
    • 2003.02.11 19:40
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 구니
      2003.02.12 02:23
      혹시 ADO를 사용하신것 아닙니까? 혹 ADO를 사용하셨다면 패치를 찾아서 해보셔요.. ADO patch.... ...
    • 김상수
    • 2003.02.11 18:32
    • 7 COMMENTS
    • /
    • 0 LIKES
    • 김상수
      2003.02.12 01:17
    • KDDG_ZZOM
      2003.02.11 20:46
      우선 이방법으로 치환 해보시고 원하는 후속작업을 하시면 될것같네요... StringReplace(내용,#13#10,' ...
    • 최용일
      2003.02.11 18:56
      안녕하세요. 최용일입니다. Copy함수를 써보세요...   RichEdit1.Text := Copy(RichEdit1....
    • 김상수
      2003.02.11 22:07
      제가 원하는 그런게 나타나지 않네요 아래에도 설명했지만 메세지는 '2003-02-11 12:17:00 설...
    • KDDG_ZZOM
      2003.02.11 22:42
      리치에디트에 인서트한후 아래메시지를 던지면 리치에디트이 마지막으로 가거든요... SendMessage(Rich...
    • 김상수
      2003.02.11 19:36
      음.. 답변 감사합니다. 그런데요 소스가   ls_set_msg := ls_show_time +' '+'설...
    • 구창민
      2003.02.11 22:56
      다추가하고난뒤 이렇게 하심 되겟네여..   for i := RichEdit.Lines.Count-1 downto 0 do &n...
    • 박희경
    • 2003.02.11 06:57
    • 1 COMMENTS
    • /
    • 0 LIKES
    • midaskpp
      2003.02.11 16:42
      // 이렇게 해보세요... mainform.table1.open; mainform.table1.first;     &nbs...
    • 정성헌
    • 2003.02.11 06:38
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 최용일
      2003.02.11 19:06
      안녕하세요. 최용일입니다. Variant형도 참조형으로 넘길수 있습니다. Variant형과  Integ...
    • 이재훈
      2003.02.11 23:42
      .
    • 델파이탐크루즈
      2003.02.11 05:33
      .pas 파일을 볼려고 하시는것 같은데... 메모장 열어놓으시고 화일 열기하셔서 *.pas 하신후 보시면...
    • 장미경
      2003.02.11 05:44
      그렇군요 ^^; 괜히 고민했네요, 감사드립니다..
    • 칼짱
      2003.02.11 05:49
      안녕하세요. 칼짱입니다. ^^; 생각나는 대로... 간략하게 설명드릴께요. 타입라이브러리 아시죠? ...
    • 나옹이
      2003.02.11 07:58
      아항..... 이런 방법이... 감사합니다. 그런데요.... ActiveX 폼에 Lable 컴포를 하나 올려놓고.....
    • 칼짱
      2003.02.11 19:00
      메소드구현에 Label1.Caption := FWindow.location.toString; 즐겁게 코딩하세요!~ ^^;
    • 최용일
      2003.02.11 10:21
      안녕하세요. 최용일입니다. OnShow이벤트에서 메세지를 보내보세요... PostMessage(FormHandle, WM_C...
    • 최용일
      2003.02.11 10:23
      안녕하세요. 최용일입니다. 굳이 익스플로러를 폼에 넣으려고 하시지 마시고, 델파이에 있는 TWebBrowse...
    • 이뿌이
    • 2003.02.11 00:33
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 파니
      2003.02.11 03:01
      미흡하지만 도움이 되었으면 좋겠네요...^* DBGrid + TQuery + TDataSource 일 경우. TDataSou...
    • 올랭이
    • 2003.02.10 23:44
    • 0 COMMENTS
    • /
    • 0 LIKES