Q&A

  • 문자형을 정수형으로 형변환?
edit 에서 입력받은 값을 장수와 비교 하고 싶은데여..



if Edit1.Text > 9999 then

begin

MessageBox(Handle, '너무 커.', '오류',

MB_OK or MB_ICONSTOP);

Exit;

end;



이렇게여

형이 달라서 않되네요.

도와 주셔여..

그럼.



4  COMMENTS
  • Profile
    사발우성 2000.11.17 22:04
    if strtoint(Edit1.Text) > 9999 then

    begin

    MessageBox(Handle, '너무 커.', '오류',

    MB_OK or MB_ICONSTOP);

    Exit;

    end;

  • Profile
    황광일 2000.11.17 22:05
    if Edit1.Text > 9999 then

    요부분을



    if StrToIntDef(Edit1.Text, 10000) > 9999 then



    요렇게 하면 되겠군요..



    허걱 wrote:

    > edit 에서 입력받은 값을 장수와 비교 하고 싶은데여..

    >

    > if Edit1.Text > 9999 then

    > begin

    > MessageBox(Handle, '너무 커.', '오류',

    > MB_OK or MB_ICONSTOP);

    > Exit;

    > end;

    >

    > 이렇게여

    > 형이 달라서 않되네요.

    > 도와 주셔여..

    > 그럼.

    >

  • Profile
    최은석 2000.11.18 01:04


    StrToIntDef 함수를 쓸 필요는 없는거 같은데요.....

    물론 에디트박스에 숫자만 입력한다는 전제하에서지만...

    안그런가요?









    황광일 wrote:

    > if Edit1.Text > 9999 then

    > 요부분을

    >

    > if StrToIntDef(Edit1.Text, 10000) > 9999 then

    >

    > 요렇게 하면 되겠군요..

    >

    > 허걱 wrote:

    > > edit 에서 입력받은 값을 장수와 비교 하고 싶은데여..

    > >

    > > if Edit1.Text > 9999 then

    > > begin

    > > MessageBox(Handle, '너무 커.', '오류',

    > > MB_OK or MB_ICONSTOP);

    > > Exit;

    > > end;

    > >

    > > 이렇게여

    > > 형이 달라서 않되네요.

    > > 도와 주셔여..

    > > 그럼.

    > >

  • Profile
    황광일 2000.11.18 04:15
    물론

    if StrToInt(Edit1.Text > 9999) then

    으로 처리해도 됩니다.

    StrToIntDef는 TEdit를 쓸 경우 공백 문자를 전달하거나...

    문자를 실수로 입력했을 때를 대비해서 쓰면 좋습니다..



    될 수 있으면 안전한 방법을 알려드릴려구 StrToIntDef를 썼네요...

    그럼..





    최은석 wrote:

    >

    > StrToIntDef 함수를 쓸 필요는 없는거 같은데요.....

    > 물론 에디트박스에 숫자만 입력한다는 전제하에서지만...

    > 안그런가요?

    >

    >

    >

    >

    > 황광일 wrote:

    > > if Edit1.Text > 9999 then

    > > 요부분을

    > >

    > > if StrToIntDef(Edit1.Text, 10000) > 9999 then

    > >

    > > 요렇게 하면 되겠군요..

    > >

    > > 허걱 wrote:

    > > > edit 에서 입력받은 값을 장수와 비교 하고 싶은데여..

    > > >

    > > > if Edit1.Text > 9999 then

    > > > begin

    > > > MessageBox(Handle, '너무 커.', '오류',

    > > > MB_OK or MB_ICONSTOP);

    > > > Exit;

    > > > end;

    > > >

    > > > 이렇게여

    > > > 형이 달라서 않되네요.

    > > > 도와 주셔여..

    > > > 그럼.

    > > >