Q&A

  • 계산이 되질 않아요.. 제발 도와주세요..
안녕하세요. 델파이를 사랑하는 여러분..



제가 초보라서 이런 황당한 일을 당하는것 같네요..^^

제발 아래 소스를 해결해 주시면 넘 감사하겠습니다.



procedure TForm1.Button2Click(Sender: TObject);

var

SpaceNum: Integer;

begin

SpaceNum := 8*512*1278907;

ShowMessage(IntToStr(SpaceNum));

end;



위의 소스를 컴파일 하려고 하니 계속해서 다음과 같은 에러가 발생을 합니다.



Overflow in Conversion or arithmetic operation.

참고로 위의 내용을 계산기로 하니 아무런 문제없이 계산이되던데...



제발 고수님들의 답변을 기다립니다.. 흑흑흑...

그럼, 즐거운 하루되세요..



2  COMMENTS
  • Profile
    MIDAS 2001.01.17 02:19
    저 또한 에러가 나는데 이렇게 하니까 안나오는군요.



    procedure TForm1.Button2Click(Sender: TObject);

    var

    SpaceNum: double;

    begin

    SpaceNum := 8*512 ;

    SpaceNum := SpaceNum * 1278907 ;

    ShowMessage(floattoStr(SpaceNum));

    end;



    참고) 답변하신분 중 float 라는 변수 타입은 없습니다.









    박대규 wrote:

    > 안녕하세요. 델파이를 사랑하는 여러분..

    >

    > 제가 초보라서 이런 황당한 일을 당하는것 같네요..^^

    > 제발 아래 소스를 해결해 주시면 넘 감사하겠습니다.

    >

    > procedure TForm1.Button2Click(Sender: TObject);

    > var

    > SpaceNum: Integer;

    > begin

    > SpaceNum := 8*512*1278907;

    > ShowMessage(IntToStr(SpaceNum));

    > end;

    >

    > 위의 소스를 컴파일 하려고 하니 계속해서 다음과 같은 에러가 발생을 합니다.

    >

    > Overflow in Conversion or arithmetic operation.

    > 참고로 위의 내용을 계산기로 하니 아무런 문제없이 계산이되던데...

    >

    > 제발 고수님들의 답변을 기다립니다.. 흑흑흑...

    > 그럼, 즐거운 하루되세요..

    >

  • Profile
    Umpro 2001.01.17 02:00
    >

    > procedure TForm1.Button2Click(Sender: TObject);

    > var

    > SpaceNum: float;

    > begin

    > SpaceNum := 8*512*1278907;

    > ShowMessage(floatToStr(SpaceNum));

    > end;

    >

    >

    이렇게 해 보세요.