请问:在做DELPHI的过程中,什么情况出出溢出?怎么判断是否有溢出?怎么判断是系统错误,还是软件错误啊?

解决方案 »

  1.   

    EIntError = class(EExternal);
      EDivByZero = class(EIntError);
      ERangeError = class(EIntError);
      EIntOverflow = class(EIntError);  EMathError = class(EExternal);
      EInvalidOp = class(EMathError);
      EZeroDivide = class(EMathError);
      EOverflow = class(EMathError);
      EUnderflow = class(EMathError);  EInvalidPointer = class(EHeapException);  EInvalidCast = class(Exception);  EConvertError = class(Exception);  EAccessViolation = class(EExternal);
      EPrivilege = class(EExternal);
      EStackOverflow = class(EExternal)
    ///
    var
    i,j: integer;
    t:Double;
    begin
    i:=1;j:=0;
    try
    t:= i/j;
    ShowMessage(FloatToStr(t));
    except
    on e:Exception do
    ShowMessage(e.Message);
    end;
    end;