Q&A

  • 질문]IF문 쓰는 방법좀 알켜줘여..쉬운거에여..오빠들..플리즈
ParamByName('N1').AsString := Trim(Sdt);

ParamByName('N2').AsInteger := R_SEQ;

// ParamByName('N3').AsInteger := StrToInt(Seq); Error:''is not a valid integer value

ParamByName('N3').AsInteger := StrToIntDef(Seq, 0);//수정부분

ParamByName('N4').AsString := Trim(Pdiv);

ParamByName('N5').AsString := Trim(Shcd);

ParamByName('N6').AsString := Trim(Shnm);

''is not a valid integer value

에러가 나서 ParamByName('N3').AsInteger := StrToIntDef(Seq, 0); 수정해서 실행시켰더니 또 에러가 나는거 있죠...

MS-SQL Error

Error converting data type varchar to numeric 에러...

물어 보니까 StrToIntDef함수를 쓸때 2개의 변수를 쓰라고 하는 데 잘 모르겠거든여..

완전 초짜거든여...오빠들..흐흐..

StrToIntDef함수의 변수Type을 확인해라고 하는데 실력이 미치지 못해 오빠들 한테 부탁을 드립니다.

그리고 수정한 부분을 IF문 쓰면 안되나여...

''이 들어 오면 0을 주고 아니면 실행하고...어떻게 쓰죠...C하고 좀 틀려서여...

오빠들 제 생각엔

ParamByName('N1').AsString := Trim(Sdt);

ParamByName('N2').AsInteger := R_SEQ;

if Seq := '' then ParamByName('N3').AsInteger := StrToIntDef(0)

else

ParamByName('N3').AsInteger := StrToIntDef(Seq);

이렇게 고치면 안될까여...

원래문장 ParamByName('N3').AsInteger := StrToIntDef(Seq, 0);

오빠들 제발 답변좀 주시와요....

플리즈....

좋은 시간 만들구여....

6  COMMENTS
  • Profile
    나그네 2001.10.17 19:42
    ParamByName('N3').AsInteger := StrToInt(Seq);

    Seq 가 '' 이면 당연히 에러구요,

    > ParamByName('N3').AsInteger := StrToIntDef(Seq, 0);//수정부분

    함수의 사용법은 맞습니다.

    tempInt:=StrToIntDef(Seq, 0);

    ParamByName('N3').AsInteger := tempInt;

    해보십시오.



    > if Seq := '' then ParamByName('N3').AsInteger := 0

    > else

    > ParamByName('N3').AsInteger := StrToInt(Seq);

    이렇게 고쳐보십시오.



  • Profile
    수정이^^ 2001.10.17 20:18
    ParamByName('N1').AsString := Trim(Sdt);

    ParamByName('N2').AsInteger := R_SEQ;

    // ParamByName('N3').AsInteger := StrToIntDef(Seq, 0);

    if Seq := (이부분)'' then ParamByName('N3').AsInteger := 0 //컴파일 에러

    else

    ParamByName('N3').AsInteger := StrToInt(Seq);

    ParamByName('N4').AsString := Trim(Pdiv);

    ParamByName('N5').AsString := Trim(Shcd);

    나그네 오빠말되루 했더니 컴파일 에러가 나거든여....

    커서가 Seq :=(이부분)'' 에 멈쳐서 있거든여...잘못쓴건가여....

    전 붙여넣기 한거 박에 없거든여..다시함 봐주시겠어여...

    감사하구여...

  • Profile
    kiki 2001.11.02 02:23
    If Seq = XXX{로} Then





    수정이^^ wrote:

    > ParamByName('N1').AsString := Trim(Sdt);

    > ParamByName('N2').AsInteger := R_SEQ;

    > // ParamByName('N3').AsInteger := StrToIntDef(Seq, 0);

    > if Seq := (이부분)'' then ParamByName('N3').AsInteger := 0 //컴파일 에러

    > else

    > ParamByName('N3').AsInteger := StrToInt(Seq);

    > ParamByName('N4').AsString := Trim(Pdiv);

    > ParamByName('N5').AsString := Trim(Shcd);

    > 나그네 오빠말되루 했더니 컴파일 에러가 나거든여....

    > 커서가 Seq :=(이부분)'' 에 멈쳐서 있거든여...잘못쓴건가여....

    > 전 붙여넣기 한거 박에 없거든여..다시함 봐주시겠어여...

    > 감사하구여...

  • Profile
    kiki 2001.11.02 02:23
    If Seq = XXX{로} Then





    수정이^^ wrote:

    > ParamByName('N1').AsString := Trim(Sdt);

    > ParamByName('N2').AsInteger := R_SEQ;

    > // ParamByName('N3').AsInteger := StrToIntDef(Seq, 0);

    > if Seq := (이부분)'' then ParamByName('N3').AsInteger := 0 //컴파일 에러

    > else

    > ParamByName('N3').AsInteger := StrToInt(Seq);

    > ParamByName('N4').AsString := Trim(Pdiv);

    > ParamByName('N5').AsString := Trim(Shcd);

    > 나그네 오빠말되루 했더니 컴파일 에러가 나거든여....

    > 커서가 Seq :=(이부분)'' 에 멈쳐서 있거든여...잘못쓴건가여....

    > 전 붙여넣기 한거 박에 없거든여..다시함 봐주시겠어여...

    > 감사하구여...

  • Profile
    나그네 2001.10.17 21:08


    > if Seq := (이부분)'' then ParamByName('N3').AsInteger := 0 //컴파일 에러

    if Seq=... ':' 은 빼는게 당연하겠져?

  • Profile
    수정이^^ 2001.10.17 21:11
    점심 맛나게 먹구여...

    땡큐...*^^*